(Text markup): add note about

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

diff --git a/input/test/move-accidentals.ly b/input/test/move-accidentals.ly
index ee2133bed258f203b0c03efe416de13327835e0d..2f4c63ddfe6c8574ac32d64c30e6e5696b79c8ae 100644 (file)
--- a/input/test/move-accidentals.ly
+++ b/input/test/move-accidentals.ly
@@ -1,16 +1,16 @@
-\header {
+\version "1.7.18"
+% 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
       (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:get-grob-property elt 'interfaces))))
+      (eq? (ly:get-grob-property
+           (ly:get-parent elt 1) 'staff-position) pos))))
 
 \score {
   \context Voice \notes \relative c'' {
@@ -32,6 +32,7 @@ involves some scheme code."
     >
   }
   \paper {
-    linewidth = -1
+    raggedright = ##t
   }
 }
+