From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 1 Jan 2007 16:30:01 +0000 (+0100)
Subject: Typeset single grob-property setting correctly as well.
X-Git-Tag: release/2.11.7-1~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cda4f0162f2acac8aa617bdec3d3d9af414746fd;p=lilypond.git

Typeset single grob-property setting correctly as well.
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 66beb27cea..0f957151f8 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -829,10 +829,14 @@ Otherwise, return #f."
 ;;; Layout properties
 
 (define-display-method OverrideProperty (expr parser)
-  (let ((symbol	  (ly:music-property expr 'symbol))
-	(properties (ly:music-property expr 'grob-property-path))
-	(value	  (ly:music-property expr 'grob-value))
-	(once	  (ly:music-property expr 'once)))
+  (let* ((symbol	  (ly:music-property expr 'symbol))
+	 (property-path   (ly:music-property expr 'grob-property-path))
+	 (properties      (if (pair? property-path)
+			      property-path
+			      (list (ly:music-property expr 'grob-property))))
+	 (value	  (ly:music-property expr 'grob-value))
+	 (once	  (ly:music-property expr 'once)))
+
     (format #f "~a\\override ~a~a #'~a = ~a~a"
 	    (if (or (null? once)
 		    (not once))