X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmarkup-user.ly;h=970f31ce8c17b122d0d3279206a59bc3bb2a3800;hb=af4acb9a3e67c63bc339fa22325c4b640b4441ac;hp=5d7c0887a4aa25d14d54e1007b098af3390af835;hpb=5956be580d291c1460f1c4b5f6e4a1c3e6549602;p=lilypond.git

diff --git a/input/regression/markup-user.ly b/input/regression/markup-user.ly
index 5d7c0887a4..970f31ce8c 100644
--- a/input/regression/markup-user.ly
+++ b/input/regression/markup-user.ly
@@ -1,22 +1,27 @@
 
 \header {
 
-    texidoc = "Own markup commands may be defined by using the
-    @code{def-markup-command} scheme macro."
+  texidoc = "Own markup commands may be defined by using the
+    @code{define-markup-command} scheme macro."
 
 
-      }
+}
+
+
+\layout { ragged-right = ##t }
+  
+
 
-\version "2.3.16" % to be updated
+\version "2.7.39"
 
-#(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))))
-
-\score { 
-     { 
-        c''-\markup \upcase #"hello world"
-        % produces a "HELLO WORLD" markup
-    }
-    \paper { raggedright = ##t }
+  (interpret-markup paper props (make-simple-markup (string-upcase str))))
+
+
+{ 
+  c''-\markup \upcase #"hello world"
+				% produces a "HELLO WORLD" markup
 }
+
+