From 7f8616eb07a69db59f9bf5612123fe4fb3bd52b1 Mon Sep 17 00:00:00 2001
From: Neil Puttock <n.puttock@gmail.com>
Date: Sun, 26 Apr 2009 21:47:11 +0100
Subject: [PATCH] Add grace defaults for Fingering/StringNumber.

Thanks to Nick Payne for the suggestion.
---
 THANKS                  | 4 ++++
 ly/engraver-init.ly     | 6 +++---
 scm/music-functions.scm | 6 +++++-
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/THANKS b/THANKS
index 8291652b2a..565a49b2d3 100644
--- a/THANKS
+++ b/THANKS
@@ -38,9 +38,13 @@ Kieren MacMillan
 
 BUG HUNTERS/SUGGESTIONS
 
+Chris Snyder
 David Kastrup
 Karim Haddad
+Mark Polesky
+Martin Tarenskeen
 Michael Käppler
+Nick Payne
 
 
 Release 2.12
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index e32d94498e..9aae417aa8 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -595,6 +595,8 @@ automatically when an output definition (a @code{\score} or
     (Voice AccidentalCautionary font-size -4)
     (Voice Slur direction ,DOWN)
     (Voice Script font-size -3)
+    (Voice Fingering font-size -8)
+    (Voice StringNumber font-size -8)
   )
 
   keepAliveInterfaces = #'(
@@ -669,15 +671,13 @@ context."
   \override Beam #'length-fraction = #0.62
 
   %% No accidental in tablature !
-  \remove Accidental_engraver
+  \remove "Accidental_engraver"
 
   \override Glissando #'extra-dy = #0.75
   \override Glissando #'bound-details #'right = #`((attach-dir . ,LEFT)
 						   (padding . 0.3))
   \override Glissando #'bound-details #'left = #`((attach-dir . ,RIGHT)
 						   (padding . 0.3))
-  \override Glissando #'extra-dy = #0.75
-  \override Glissando #'gap = #0.2
 }
 
 \context {
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 28ef5bbe43..fd950bf28a 100644
--- 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)))))) 
-- 
2.39.2