From cc6caff6d67d38b59db58786ebac3a4ff89cc27f Mon Sep 17 00:00:00 2001 From: Erik Sandberg Date: Tue, 6 Jun 2006 20:34:41 +0000 Subject: [PATCH] * ly/music-functions-init.ly: Updated \overrideProperty to use the new \applyOutput. --- ChangeLog | 5 +++++ ly/music-functions-init.ly | 20 +++++++++----------- 2 files changed, 14 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5feb81ea9c..20ef8842a5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-06-06 Erik Sandberg + + * ly/music-functions-init.ly: Updated \overrideProperty to use the + new \applyOutput. + 2006-06-06 Han-Wen Nienhuys * VERSION (PACKAGE_NAME): release 2.9.8 diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index b2780027c7..ff553e402d 100644 --- 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) () -- 2.39.5