* ly/music-functions-init.ly: Updated \overrideProperty to use the

        new \applyOutput.

diff --git a/ChangeLog b/ChangeLog
index 5feb81ea9cf0c41d763eeb2aae32bd4bf9db6727..20ef8842a56fc3328fe81edc8e81455e16fc8ac7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-06  Erik Sandberg  <mandolaerik@gmail.com>
+
+       * ly/music-functions-init.ly: Updated \overrideProperty to use the
+       new \applyOutput.
+
 2006-06-06  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
        * VERSION (PACKAGE_NAME): release 2.9.8

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index b2780027c72da8200d11510756dea89e831fc1f7..ff553e402dd2551d700eeb651d9ba9d24513fed9 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -133,17 +133,15 @@ or @code{\"GrobName\"}"
           (set! grob-name (string->symbol (list-ref name-components 1)))
           (set! context-name (string->symbol (list-ref name-components 0)))))
 
-     (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)))
+     (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))))))
 
 breathe =
 #(define-music-function (parser location) ()