Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 32b4d41bd0312095d408514d389111ee6f5e9e13..b2780027c72da8200d11510756dea89e831fc1f7 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -133,15 +133,17 @@ or @code{\"GrobName\"}"
           (set! grob-name (string->symbol (list-ref name-components 1)))
           (set! context-name (string->symbol (list-ref name-components 0)))))
 
-     (make-music 'ApplyOutputEvent
-                'origin location
-                'context-type context-name
-                'procedure
-                (lambda (grob orig-context context)
-                  (if (equal?
-                       (cdr (assoc 'name (ly:grob-property grob 'meta)))
-                       grob-name)
-                      (set! (ly:grob-property grob property) value))))))
+     (context-spec-music
+      (make-music 'ApplyOutputEvent
+                 'origin location
+                 'procedure
+                 (lambda (grob orig-context context)
+                   (if (equal?
+                        (cdr (assoc 'name (ly:grob-property grob 'meta)))
+                        grob-name)
+                       (set! (ly:grob-property grob property) value))))
+
+      context-name)))
 
 breathe =
 #(define-music-function (parser location) ()
@@ -485,24 +487,3 @@ acceleration/deceleration. "
 
      argument))
 
-
-
-
-resetRelativeOctave  =
-#(define-music-function
-    (parser location reference-note)
-    (ly:music?)
-    "Set the octave inside a \\relative section."
-
-   (let*
-    ((notes (ly:music-property reference-note 'elements))
-     (pitch (ly:music-property (car notes) 'pitch)))
-
-    (set! (ly:music-property reference-note 'elements) '())
-    (set! (ly:music-property reference-note
-       'to-relative-callback)
-       (lambda (music last-pitch)
-        pitch))
-
-    reference-note))
-