Issue 4452/2: Fix uses of \context Staff alongside ChordNames context

[lilypond.git] / Documentation / snippets / fingering-symbols-for-wind-instruments.ly

diff --git a/Documentation/snippets/fingering-symbols-for-wind-instruments.ly b/Documentation/snippets/fingering-symbols-for-wind-instruments.ly
index b5b45281fd4b236c5a3cdbc238d54d79b51ba451..4274440b67496c381847e2c9740a7930824c4fe5 100644 (file)
--- a/Documentation/snippets/fingering-symbols-for-wind-instruments.ly
+++ b/Documentation/snippets/fingering-symbols-for-wind-instruments.ly
@@ -19,12 +19,9 @@ useful for wind instruments.
 
 centermarkup = {
   \once \override TextScript.self-alignment-X = #CENTER
-  \once \override TextScript.X-offset =#(ly:make-simple-closure
-    `(,+
-      ,(ly:make-simple-closure (list
-        ly:self-alignment-interface::centered-on-x-parent))
-      ,(ly:make-simple-closure (list
-        ly:self-alignment-interface::x-aligned-on-self))))
+  \once \override TextScript.X-offset =#(lambda (g)
+  (+ (ly:self-alignment-interface::centered-on-x-parent g)
+     (ly:self-alignment-interface::x-aligned-on-self g)))
 }
 
 \score {