From: David Kastrup <dak@gnu.org>
Date: Mon, 7 Sep 2015 21:09:09 +0000 (+0200)
Subject: Issue 4609/5: Let \displayLilyMusic heed \once \unset and \once \revert
X-Git-Tag: release/2.19.28-1~5^2~8^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5e0a5fa7bd8c923732e18e3c0cab2aa26c5fec93;p=lilypond.git

Issue 4609/5: Let \displayLilyMusic heed \once \unset and \once \revert
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 0b9cb54fbb..10aecbd1db 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -809,7 +809,8 @@ Otherwise, return #f."
             (new-line->lily-string))))
 
 (define-display-method PropertyUnset (expr)
-  (format #f "\\unset ~a~a~a"
+  (format #f "~a\\unset ~a~a~a"
+          (if (ly:music-property expr 'once #f) "\\once " "")
           (if (eqv? (*current-context*) 'Bottom)
               ""
               (format #f "~a . " (*current-context*)))
@@ -839,8 +840,11 @@ Otherwise, return #f."
 (define-display-method RevertProperty (expr)
   (let* ((symbol (ly:music-property expr 'symbol))
          (properties (ly:music-property expr 'grob-property-path
-                                        (list (ly:music-property expr 'grob-property)))))
-    (format #f "\\revert ~{~a~^.~}~a"
+                                        (list (ly:music-property expr
+                                                                 'grob-property))))
+         (once (ly:music-property expr 'once #f)))
+    (format #f "~a\\revert ~{~a~^.~}~a"
+            (if once "\\once " "")
             (if (eqv? (*current-context*) 'Bottom)
                 (cons symbol properties)
                 (cons* (*current-context*) symbol properties))