From 5e0a5fa7bd8c923732e18e3c0cab2aa26c5fec93 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 7 Sep 2015 23:09:09 +0200 Subject: [PATCH] Issue 4609/5: Let \displayLilyMusic heed \once \unset and \once \revert --- scm/define-music-display-methods.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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)) -- 2.39.5