Change input/regression/alter-broken.ly to include tweak-like usage

Also change override-like usage for ties to \once\alterBroken as the
control point manipulations are unlikely to be desirable for more than
a single occurence.

diff --git a/input/regression/alter-broken.ly b/input/regression/alter-broken.ly
index 14fa489c6cfaa90c21ee84fa747cccf1ce73101c..14652297e6e24399d00a6a8e538bf2a80f730de2 100644 (file)
--- a/input/regression/alter-broken.ly
+++ b/input/regression/alter-broken.ly
@@ -13,11 +13,12 @@ its usage with a variety of data types."
 #(ly:expect-warning (_ "not a spanner name"))
 
 \relative c'' {
-  \alterBroken #'positions #'((3 . 3) (5 . 5)) Slur
-  \alterBroken #'color #'((0 0 1) (1 0 0)) Slur
-  \alterBroken #'dash-definition #'( ((0 1 0.4 0.75))
-                                          ((0 0.5 0.4 0.75) (0.5 1 1 1)) ) Slur
-  d4( d' b g
+  d4-\alterBroken #'positions #'((3 . 3) (5 . 5))
+    -\alterBroken #'color #'((0 0 1) (1 0 0))
+    -\alterBroken #'dash-definition #'( ((0 1 0.4 0.75))
+                                        ((0 0.5 0.4 0.75) (0.5 1 1 1)) )
+    -(
+  d' b g
   \break
   d d' b g)
   \alterBroken #'padding #'(1 3) Staff.OttavaBracket
@@ -25,16 +26,17 @@ its usage with a variety of data types."
   \alterBroken #'style #'(line dashed-line) Staff.OttavaBracket
   \ottava #1
   % It is possible to use procedures as arguments.
-  \alterBroken #'stencil #`(
-    ,ly:hairpin::print
-    ,(lambda (grob)
-      (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0))) Hairpin
-  c\< d e
+  c-\alterBroken Hairpin.stencil #`(
+      ,ly:hairpin::print
+      ,(lambda (grob)
+        (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0)))
+    \<
+  d e
   % Since `NoteHead' is not the name of a spanner, the following has no
   % effect on layout.  A warning (suppressed here) is issued.
   \alterBroken #'color #`(,red ,blue) NoteHead
-  \alterBroken #'color #`(() ,blue) Tie
-  \alterBroken #'control-points #'(
+  \once\alterBroken #'color #`(() ,blue) Tie
+  \once\alterBroken #'control-points #'(
      ((1 . 3) (2 . 4) (3 . 4) (4 . 3))
      ((3 . 3) (4 . 4) (5 . 4) (6 . 3))
     ) Tie