* lily/note-spacing.cc (get_spacing): less space at EOL in case of

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

diff --git a/input/test/move-accidentals.ly b/input/test/move-accidentals.ly
index a9f686cece4cac134e2db8fbb79fd25e4a8998c5..ab81caf3fba9c54162d6295d76f47d431675893b 100644 (file)
--- a/input/test/move-accidentals.ly
+++ b/input/test/move-accidentals.ly
@@ -1,4 +1,5 @@
-\version "1.7.18"
+\version "2.1.25"
+
 % possible rename to scheme- or something like that.  -gp
 \header { texidoc= "@cindex Scheme Manual Accidentals
 Positions of accidentals may be manually set. This
@@ -10,29 +11,29 @@ involves some scheme code. " }
       (not (eq? #f (memq 'accidental-interface
                     (ly:get-grob-property elt 'interfaces))))
       (eq? (ly:get-grob-property
-           (ly:get-parent elt 1) 'staff-position) pos))))
+           (ly:grob-parent elt 1) 'staff-position) pos))))
 
 \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)
+    <<
+\set Staff.AccidentalPlacement = \turnOff
+\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 {
     raggedright = ##t
   }
 }
-%% new-chords-done %%
+