Add grace defaults for Fingering/StringNumber.

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 28ef5bbe43abec41d824110f89c51e80b633b644..fd950bf28a08899c1c23ba50c588e25b3fbf98f9 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -369,7 +369,11 @@ i.e.  this is not an override"
                          (Voice Stem no-stem-extend #t)
                          (Voice Beam thickness 0.384)
                          (Voice Beam length-fraction 0.8)
-                         (Voice Accidental font-size -4)))
+                         (Voice Accidental font-size -4)
+                         (Voice AccidentalCautionary font-size -4)
+                         (Voice Script font-size -3)
+                         (Voice Fingering font-size -8)
+                         (Voice StringNumber font-size -8)))
     
      (make-grob-property-set 'NoteColumn 'horizontal-shift (quotient n 2))
      (make-grob-property-set 'MultiMeasureRest 'staff-position (if (odd? n) -4 4))))))