From: David Kastrup <dak@gnu.org>
Date: Sat, 22 Jun 2013 18:57:09 +0000 (+0200)
Subject: Issue 3420: Stop Documentation/ly-examples/orchestra.ly from redefining markup commands
X-Git-Tag: release/2.17.21-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4a42931d431d67c761f0184a43a8c78f20441792;p=lilypond.git

Issue 3420: Stop Documentation/ly-examples/orchestra.ly from redefining markup commands
---

diff --git a/Documentation/ly-examples/orchestra.ly b/Documentation/ly-examples/orchestra.ly
index 56f17685b8..6b205af903 100644
--- a/Documentation/ly-examples/orchestra.ly
+++ b/Documentation/ly-examples/orchestra.ly
@@ -13,20 +13,6 @@
   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." }