]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/move-accidentals.ly
* lily/note-spacing.cc (get_spacing): less space at EOL in case of
[lilypond.git] / input / test / move-accidentals.ly
index db6940701417e35fb3716b637bb50bffd5495ddd..ab81caf3fba9c54162d6295d76f47d431675893b 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.1.22"
+\version "2.1.25"
 
 % possible rename to scheme- or something like that.  -gp
 \header { texidoc= "@cindex Scheme Manual Accidentals
@@ -11,13 +11,13 @@ 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.
     <<
-\set Staff.AccidentalPlacement =  \turnOff
+\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)