X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=init%2Flily.scm;h=ce384d2617486c52388d59063be5a846e98c0b03;hb=b4d5d1145b0d59ae1ac42c9bc9c43c6d5b055c1c;hp=2a66e0ff1caa05c1f12e92394d525d3eca81655b;hpb=cf1707302da011b6091a5185aa93a8bc40fa5099;p=lilypond.git

diff --git a/init/lily.scm b/init/lily.scm
index 2a66e0ff1c..ce384d2617 100644
--- a/init/lily.scm
+++ b/init/lily.scm
@@ -59,6 +59,9 @@
     (beam-ps width slope thick)
    "}"))
 
+(define 
+  (bracket o h) (empty o))
+
 (define 
   (char o n) 
   ((invoke-output o "char") n))
@@ -106,9 +109,6 @@
   (empty-tex) 
   "%\n\\empty%\n")
 
-(define 
-  (emptybar o h) (empty o))
-
 (define 
   (end-output o) 
   ((invoke-output o "end-output")))
@@ -258,9 +258,6 @@
 (define
   (repeatbar o h) (empty o))
 
-(define
-  (repeatbarstartrepeat o h) (empty o))
-
 (define 
   (rulesym o x y) 
   ((invoke-output o "rulesym") x y))
@@ -281,6 +278,9 @@
   (setbold o s) 
   ((invoke-output o "text") "bold" s))
 
+(define
+  (setdynamic o s) (empty o))
+
 (define 
   (setfinger o s) 
   ((invoke-output o "text") "finger" s))