From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 26 Jan 2006 15:10:59 +0000 (+0000)
Subject: (verbatim-file): new markup
X-Git-Tag: release/2.7.29~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=36789913828cf9b7e2c18aff7f58795dc0f10e0c;p=lilypond.git

(verbatim-file): new markup
command \verbatim-file
---

diff --git a/input/regression/page-layout-twopass.ly b/input/regression/page-layout-twopass.ly
index a8a6629349..ab94573695 100644
--- a/input/regression/page-layout-twopass.ly
+++ b/input/regression/page-layout-twopass.ly
@@ -29,6 +29,7 @@ tweakFileName = #(format "~a-page-layout.ly" (ly:parser-output-name parser))
 #(newline)
 #(ly:progress "Including file: '~a'" tweakFileName)
 
+%% unfortunately: the following doesn't show up in lp-book output
 
 \markup {
   \column {
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 0f5392c850..10c68a27af 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -759,7 +759,7 @@ any sort of property supported by @internalsref{font-interface} and
 	"Cannot read file in Safe mode"
 	(let*
 	    ((str (ly:gulp-file name))
-	     (lines (string-split str #\n)))
+	     (lines (string-split str #\nl)))
 
 	  (make-typewriter-markup
 	   (make-column-markup lines)))