]> git.donarmstrong.com Git - lilypond.git/commitdiff
Issue 3420: Stop Documentation/ly-examples/orchestra.ly from redefining markup commands
authorDavid Kastrup <dak@gnu.org>
Sat, 22 Jun 2013 18:57:09 +0000 (20:57 +0200)
committerDavid Kastrup <dak@gnu.org>
Thu, 27 Jun 2013 09:52:44 +0000 (11:52 +0200)
Documentation/ly-examples/orchestra.ly

index 56f17685b80ab74c3cb73b9dc1b34b95545be903..6b205af903f8f9f53582db839243310e42982c51 100644 (file)
   line-width = 158\mm
 }
 
-%% markups
-#(define-markup-list-command (paragraph layout props args) (markup-list?)
-  (let ((indent (chain-assoc-get 'par-indent props 2)))
-  (interpret-markup-list layout props
-  (make-justified-lines-markup-list (cons (make-hspace-markup indent)
-  args)))))
-
-#(define-markup-command (vspace layout props amount) (number?)
-  "This produces a invisible object taking vertical space."
-  (let ((amount (* amount 3.0)))
-    (if (> amount 0)
-        (ly:make-stencil "" (cons -1 1) (cons 0 amount))
-        (ly:make-stencil "" (cons -1 1) (cons amount amount)))))
-
 %% text defs
 presto = \markup { \bold \italic "Presto" }
 div = \markup { \bold "Div." }