From: David Kastrup <dak@gnu.org>
Date: Thu, 16 Jul 2015 14:39:13 +0000 (+0200)
Subject: Issue 4507/2: Fix display for \applyOutput, adapt display regtest
X-Git-Tag: release/2.19.24-1~5^2~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cff11827495c69276d36a12dbbc9097f6c5887b2;p=lilypond.git

Issue 4507/2: Fix display for \applyOutput, adapt display regtest
---

diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly
index a483cc53d3..649309ac6e 100644
--- a/input/regression/display-lily-tests.ly
+++ b/input/regression/display-lily-tests.ly
@@ -227,6 +227,7 @@ stderr of this run."
 
 %% \applyOutput
 \test ##[ \applyOutput Foo #(lambda (arg) (list)) #]
+\test ##[ \applyOutput Foo.NoteHead #(lambda (arg) (list)) #]
 %% \applyContext
 \test ##[ \applyContext #(lambda (arg) (list)) #]
 
diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 8708cc1d73..01eae4bfbb 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -985,9 +985,11 @@ Otherwise, return #f."
 
 (define-display-method ApplyOutputEvent (applyoutput)
   (let ((proc (ly:music-property applyoutput 'procedure))
-        (ctx  (ly:music-property applyoutput 'context-type)))
-    (format #f "\\applyOutput #'~a #~a"
+        (ctx  (ly:music-property applyoutput 'context-type))
+        (grob (ly:music-property applyoutput 'symbol)))
+    (format #f "\\applyOutput ~a~@[.~a~] #~a"
             ctx
+            (and (symbol? grob) grob)
             (or (procedure-name proc)
                 (with-output-to-string
                   (lambda ()