*** empty log message ***

diff --git a/input/regression/chord-tremolo.ly b/input/regression/chord-tremolo.ly
index 2c79ae02682b30a9c509c8f5c8801721a7b19902..4a7cddf3ff19fe593e44c49da0f6dcd0caf00224 100644 (file)
--- a/input/regression/chord-tremolo.ly
+++ b/input/regression/chord-tremolo.ly
@@ -15,6 +15,7 @@ stems.
 \score { 
   \context Voice \notes\relative c' {
         % huh -> one beam missing!
+       \repeat "tremolo" 16 { d16 e }
        \repeat "tremolo" 8 { d16 e }
        \repeat "tremolo" 4 { d e }
        \repeat "tremolo" 2 { d e }

diff --git a/lily/mark-engraver.cc b/lily/mark-engraver.cc
index bdd968df6093b318de155154cd377a8e42938f9e..e0c459684e7d2a5e27e71825f439cc139c72168c 100644 (file)
--- a/lily/mark-engraver.cc
+++ b/lily/mark-engraver.cc
@@ -166,19 +166,22 @@ Mark_engraver::process_music ()
          text_->set_grob_property ("text",
                                      scm_makfrom0str (t.to_str0 ()));
 
-         String style = "mark-number";
+         SCM series = SCM_EOL;
+         SCM family = ly_symbol2scm ("number");
          for (int i=0; i < t.length (); i++)
            {
              if (!isdigit (t[i])) 
                {
-                 style = "mark-letter";
+                 series = ly_symbol2scm ("bold");
+                 family = ly_symbol2scm ("roman");
                  break;
                }
            }
-         SCM st = ly_symbol2scm (style.to_str0 ());
-         text_->set_grob_property ("font-style",  st);
+         if (gh_symbol_p (series))
+           text_->set_grob_property ("font-series",  series);
+         if (gh_symbol_p (family))
+           text_->set_grob_property ("font-family",  family);
        }
-
     }
 }
 

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 55ec5bd4282135a80da2401ffd7b3a3bbb504a8a..ee4e6777de28e16861d0ef949f806b425169a341 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -514,6 +514,7 @@
        (break-align-symbol . time-signature)
        (direction . 1)
        (breakable . #t)
+       (font-relative-size . 1)
        (font-family . roman)
        (baseline-skip . 2)
        (break-visibility . ,end-of-line-invisible)