X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmarkup-user.ly;h=63b1450af00a8f8e29348595fef7a37be6f335d1;hb=bf707a03756021f69e3f5d1a8246639a6a601099;hp=7b98e0d4bd7115f6ede32bc4244b3b6340992951;hpb=9c31b0d42a407a412a324a6586cfb0437de4bfd8;p=lilypond.git

diff --git a/input/regression/markup-user.ly b/input/regression/markup-user.ly
index 7b98e0d4bd..63b1450af0 100644
--- a/input/regression/markup-user.ly
+++ b/input/regression/markup-user.ly
@@ -1,22 +1,31 @@
 
 \header {
+  texidoc = "Users may define non-standard markup commands using
+the @code{define-markup-command} scheme macro."
+}
 
-    texidoc = "Own markup commands may be defined by using the
-    @code{def-markup-command} scheme macro."
 
+\layout { ragged-right = ##t }
+  
 
-      }
 
-\version "2.1.36" % to be updated
+\version "2.12.0"
 
-#(def-markup-command (upcase paper props str) (string?)
+#(define-markup-command (upcase paper props str) (string?)
   "Upcase the string characters. Syntax: \\upcase #\"string\""
-   (interpret-markup paper props (make-simple-markup (string-upcase str))))
+  (interpret-markup paper props (make-simple-markup (string-upcase str))))
+
+\score{
+  {
+    c''-\markup \upcase #"hello world"
+				% produces a "HELLO WORLD" markup
+  }
 
-\score { 
-    \notes { 
-        c''-\markup \upcase #"hello world"
-        % produces a "HELLO WORLD" markup
+  \layout {
+    \context {
+      \Score
+      \override PaperColumn #'keep-inside-line = ##f
     }
-    \paper { raggedright = ##t }
+  }
+
 }