(verbatim-file): new markup

command \verbatim-file

diff --git a/input/regression/page-layout-twopass.ly b/input/regression/page-layout-twopass.ly
index a8a662934916128727eaa28d0bd6eaa05fbd08f1..ab94573695f5be9caa935d6eb0582f6c27e512eb 100644 (file)
--- 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 0f5392c850fc087135169cd1e3c67b6305c0f9bb..10c68a27af077a33a523db245c0d352ddb1390ec 100644 (file)
--- 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)))