* lily/slur-configuration.cc (fit_factor): oops, skip point if

[lilypond.git] / lily / slur.cc

diff --git a/lily/slur.cc b/lily/slur.cc
index 2a5518c2c6edb480fe106fb4cd8ac064c536f01a..905c158697b3ad8d6cbf4d6dea6b13e05647854d 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -115,6 +115,8 @@ Slur::print (SCM smob)
       string str;
       SCM properties = Font_interface::text_font_alist_chain (me);
 
+      properties = scm_cons (scm_acons (ly_symbol2scm ("font-size"), scm_from_int (-6), SCM_EOL),
+                                properties);
       Stencil tm = *unsmob_stencil (Text_interface::interpret_markup
                                    (me->layout ()->self_scm (), properties,
                                     quant_score));