diff options
| author | Erik Sandberg <mandolaerik@gmail.com> | 2006-06-06 20:34:41 +0000 |
|---|---|---|
| committer | Erik Sandberg <mandolaerik@gmail.com> | 2006-06-06 20:34:41 +0000 |
| commit | 27b9d27fe02b46c3a59a29a474d1efec44cd3e4a (patch) | |
| tree | 1495b89e9b6819e37eee0c638344f339d089bf45 /ly | |
| parent | 9f7a7d50162daaceac738c8f8f9449ab8559c896 (diff) | |
* ly/music-functions-init.ly: Updated \overrideProperty to use the
new \applyOutput.
Diffstat (limited to 'ly')
| -rw-r--r-- | ly/music-functions-init.ly | 20 |
1 files changed, 9 insertions, 11 deletions
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) () |