(fill_pages): New method. Try to cramp or

[lilypond.git] / input / test / script-priority.ly

diff --git a/input/test/script-priority.ly b/input/test/script-priority.ly
index 52ff9169a4be47db381d90dc5c9efc0590d74192..d7085c49f47b0d1808b655743fb4d14f99af5523 100644 (file)
--- a/input/test/script-priority.ly
+++ b/input/test/script-priority.ly
@@ -1,22 +1,24 @@
-\version "1.7.18"
-\header {
-    texidoc = "Relative placements of different script types can be controlled
-by overriding script-priority."
+
+\version "2.1.30"
+
+\header { texidoc = "@cindex Script Priority
+Relative placements of different script types can be controlled
+by overriding @code{script-priority}. "
 }
-\paper { raggedright = ##t} 
+
 
 \score{
     \context Staff \notes \relative g''{
        
-       \property Score.TextScript \override #'script-priority = #-100
-       a4^\prall^\markup \fontsize #-2 \musicglyph #"accidentals-1"
+       \override Score.TextScript  #'script-priority = #-100
+       a4^\prall^\markup \fontsize #-2 \semisharp
 
        
-       \property Score.Script \override #'script-priority = #-100
-       \property Score.TextScript \revert #'script-priority
+       \override Score.Script  #'script-priority = #-100
+       \revert Score.TextScript #'script-priority
        
-       a4^\prall^\markup \fontsize  #-2 \musicglyph #"accidentals-1"
+       a4^\prall^\markup \fontsize  #-2 \semisharp
     }
+       \paper { raggedright = ##t} 
 }
 
-%% new-chords-done %%