From 6540bd3e2bca113358ad513c79b988435228be7f Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 30 May 2014 16:11:00 +0200
Subject: [PATCH] Add regtest for \once \unset

---
 input/regression/unset-once.ly | 37 ++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 input/regression/unset-once.ly

diff --git a/input/regression/unset-once.ly b/input/regression/unset-once.ly
new file mode 100644
index 0000000000..32fad554a0
--- /dev/null
+++ b/input/regression/unset-once.ly
@@ -0,0 +1,37 @@
+\version "2.17.15"
+
+\header {
+
+  texidoc = "@code{\\once \\unset} should change a context property
+value for just one timestep and then return to the previous value."
+
+}
+\relative c' {
+  \set fingeringOrientations = #'(left)
+  <e-1>1 |
+  \once \unset fingeringOrientations
+  <e-1>-"default" |
+  <e-1>-"left" |
+
+  \unset fingeringOrientations
+  <e-1>-"default" |
+  \once\unset fingeringOrientations
+  <e-1>-"default" |
+  <e-1>-"default" |
+  \set Score.fingeringOrientations = #'(right)
+  <e-1>-"right"
+  \once\unset fingeringOrientations
+  <e-1>-"right"
+  <e-1>-"right"
+  \once\set fingeringOrientations = #'(left)
+  <e-1>-"left"
+  <e-1>-"right"
+  \set fingeringOrientations = #'(left)
+  <e-1>-"left"
+  \once \unset fingeringOrientations
+  <e-1>-"right"
+  <e-1>-"left"
+  \unset fingeringOrientations
+  \set Score.fingeringOrientations = #'(up down)
+  <e-1>-"default"
+}
-- 
2.39.5