* lily/tab-note-heads-engraver.cc: listen to string number events

[lilypond.git] / input / test / move-accidentals.ly

diff --git a/input/test/move-accidentals.ly b/input/test/move-accidentals.ly
index fb23ae361e742434999755ad7663ecc1de232389..e9a94a51f14ef3470f45a1427e8bac98d1b48918 100644 (file)
--- a/input/test/move-accidentals.ly
+++ b/input/test/move-accidentals.ly
@@ -1,10 +1,10 @@
-\version "1.7.3"
-\header {
+#(ly:set-option 'old-relative)
+\version "2.1.7"
+% possible rename to scheme- or something like that.  -gp
+\header { texidoc= "@cindex Scheme Manual Accidentals
+Positions of accidentals may be manually set. This
+involves some scheme code. " }
 
-        texidoc= "Positions of accidentals may be manually set. This
-involves some scheme code."
-
-}
 #(define (make-acc-position-checker pos)
   (lambda (elt)
    (and
@@ -16,23 +16,24 @@ involves some scheme code."
 \score {
   \context Voice \notes \relative c'' {
     c2.
-    <
+    <<
 \property Staff.AccidentalPlacement = \turnOff
-\context Staff \outputproperty #(make-acc-position-checker 9)
-                               #'extra-offset = #'(-1 . 0)
-\context Staff \outputproperty #(make-acc-position-checker 5)
-                               #'extra-offset = #'(-2 . 0)
-\context Staff \outputproperty #(make-acc-position-checker 3)
-                               #'extra-offset = #'(-3 . 0)
-\context Staff \outputproperty #(make-acc-position-checker 2)
-                               #'extra-offset = #'(-4 . 0)
+\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 9)
+                               'extra-offset  '(-1 . 0))
+\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 5)
+                               'extra-offset  '(-2 . 0))
+\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 3)
+                               'extra-offset  '(-3 . 0))
+\context Staff \applyoutput #(outputproperty-compatibility (make-acc-position-checker 2)
+                               'extra-offset  '(-4 . 0))
       d!4
       eis
       gis
       d'!
-    >
+    >>
   }
   \paper {
-    linewidth = -1
+    raggedright = ##t
   }
 }
+