(conv): add 2.2.0 rule.

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

diff --git a/input/test/move-accidentals.ly b/input/test/move-accidentals.ly
index 4e78c1c6d70a42573a8d9c51f27b655f4f9aca48..5316705c23d7fc32ec5537efe44220720eab7f6e 100644 (file)
--- a/input/test/move-accidentals.ly
+++ b/input/test/move-accidentals.ly
@@ -1,23 +1,23 @@
-#(ly:set-option 'old-relative)
-\version "1.9.8"
+\version "2.1.36"
+
 % 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. " }
+The positions of accidentals may be manually set by incorporating
+some Scheme code. " }
 
 #(define (make-acc-position-checker pos)
   (lambda (elt)
    (and
       (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-property elt 'interfaces))))
+      (eq? (ly:grob-property
+           (ly:grob-parent elt 1) 'staff-position) pos))))
 
 \score {
   \context Voice \notes \relative c'' {
     c2.
     <<
-\property 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)