From 8bce67f493249b5dbcb314fba9b41801d061203a Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Thu, 20 Dec 2012 19:07:43 +0000 Subject: [PATCH] escape newlines --- lispstrack.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lispstrack.lisp b/lispstrack.lisp index 2d27c25..387f388 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -363,6 +363,9 @@ (let ((ch (char string index))) (when (or (char= ch #\") (char= ch #\\)) (setq output (concat output "\\"))) + (when (or (char= ch #\newline)) + (setq output (concat output "\\")) + (setq ch #\n)) (setq output (concat output (string ch)))) (incf index)) output)) -- 1.7.10.4