X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=blobdiff_plain;f=input%2Fregression%2Fmarkup-partial.ly;fp=input%2Fregression%2Fmarkup-partial.ly;h=66199dde7b9752f655bdb0b44311ae74d74d5f6e;hp=f0759d26edab8b60f4603af9b8684fdb2d762c56;hb=acae40c266a7df9b4882f937c733745c803ac9e4;hpb=5d84bfad4626892bcffd05adcced53c8a2329047

diff --git a/input/regression/markup-partial.ly b/input/regression/markup-partial.ly
index f0759d26ed..66199dde7b 100644
--- a/input/regression/markup-partial.ly
+++ b/input/regression/markup-partial.ly
@@ -8,12 +8,12 @@ command has already been supplied."
 
 \layout { ragged-right = ##t }
 
-bold-red-markup = \markup \bold \with-color #red \etc
-italic-color-markup = \markup \italic \with-color \etc
-quarter-markup = \markup \note-by-number #2 \etc
+\markup bold-red = \markup \bold \with-color #red \etc
+\markup italic-color = \markup \italic \with-color \etc
+\markup quarter = \markup \note-by-number #2 \etc
 
 \markup \bold-red "Bold red."
 \markuplist \column-lines \bold-red { Bold red in a list. }
-\markup \italic-color #green "Italic green."
+\markup #(markup #:italic-color green "Italic green.")
 \markuplist \column-lines \italic-color #green { Italic green in a list. }
-\markup { 3/8: \quarter #1 #UP }
+\markup { 3/8: #(make-quarter-markup 1 UP) }