X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fmarkup-user.ly;h=e9f1bba990b8bc715e4b323d6071b1bb05ba8324;hb=aafcc4147ae2fea2ba1d95c7a54963c61f21b963;hp=ec0b6552fcd81783c101e5bf31a25c263b175f36;hpb=49428cfe64483bc706da930d4e24d16166d8e79a;p=lilypond.git

diff --git a/input/regression/markup-user.ly b/input/regression/markup-user.ly
index ec0b6552fc..e9f1bba990 100644
--- a/input/regression/markup-user.ly
+++ b/input/regression/markup-user.ly
@@ -1,22 +1,25 @@
-
 \header {
-
-  texidoc = "Own markup commands may be defined by using the
-    @code{def-markup-command} scheme macro."
-
-
+  texidoc = "Users may define non-standard markup commands using
+the @code{define-markup-command} scheme macro."
 }
 
-\version "2.6.0" % to be updated
+\layout { ragged-right = ##t }
 
-#(def-markup-command (upcase paper props str) (string?)
+\version "2.17.6"
+
+#(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))))
 
-
-{ 
-  c''-\markup \upcase #"hello world"
-				% produces a "HELLO WORLD" markup
+\score{
+  {
+    c''-\markup \upcase #"hello world in upper case"
+  }
+
+  \layout {
+    \context {
+      \Score
+      \override PaperColumn.keep-inside-line = ##f
+    }
+  }
 }
-\layout { raggedright = ##t }
-