From: David Kastrup <dak@gnu.org>
Date: Sun, 3 Jul 2016 14:06:59 +0000 (+0200)
Subject: Issue 4916: Let \overrideProperty use ApplyOutputEvent.symbol
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=9a7a86622af9ce0a8f36e0a6c1e08d8a54dd8e3c;p=lilypond.git

Issue 4916: Let \overrideProperty use ApplyOutputEvent.symbol
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index a23d154fd8..f4f50fafef 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1014,13 +1014,10 @@ creation.")
      (if p
          (make-music 'ApplyOutputEvent
                      'context-type (first p)
+                     'symbol (second p)
                      'procedure
                      (lambda (grob orig-context context)
-                       (if (equal?
-                            (cdr (assoc 'name (ly:grob-property grob 'meta)))
-                            (second p))
-                           (ly:grob-set-nested-property!
-                            grob (cddr p) value))))
+                       (ly:grob-set-nested-property! grob (cddr p) value)))
          (make-music 'Music))))