From c7632cdcacc566dac0bd8a1382ae2fda5d33cda3 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Tue, 8 Sep 2015 15:16:28 +0200
Subject: [PATCH] Issue 4609/6: Regtest for \once \revert
---
input/regression/revert-once.ly | 30 ++++++++++++++++++++++++++++++
1 file changed, 30 insertions(+)
create mode 100644 input/regression/revert-once.ly
diff --git a/input/regression/revert-once.ly b/input/regression/revert-once.ly
new file mode 100644
index 0000000000..e8cad6c9e8
--- /dev/null
+++ b/input/regression/revert-once.ly
@@ -0,0 +1,30 @@
+\version "2.19.28"
+
+\header {
+ texidoc = "@code{\\once \\revert} can be used for reverting a property
+once rather than permanently."
+}
+
+\layout {
+ ragged-right = ##t
+}
+
+\relative {
+ c'4-"b" d-"b"
+ \override NoteHead.color = #red
+ e4-"r" f-"r" |
+ \once \override NoteHead.color = #green
+ g4-"g" a-"r"
+ \once \revert NoteHead.color
+ b-"b" c-"r" |
+ \temporary \override NoteHead.color = #yellow
+ g-"y" e-"y"
+ \once \revert NoteHead.color
+ d-"r" c-"y" |
+ \revert NoteHead.color
+ d-"r" e-"r"
+ \once \revert NoteHead.color
+ f-"b" d-"r" |
+ \revert NoteHead.color
+ c1-"b"
+}
--
2.39.5