patch::: 1.1.52.gp2

[lilypond.git] / lily / font-size-engraver.cc

diff --git a/lily/font-size-engraver.cc b/lily/font-size-engraver.cc
index 0edf7e59015b150ca8bf1aa062eed1a94c329a22..30f47498c9014ea27b9390a55bedcea180e066de 100644 (file)
--- a/lily/font-size-engraver.cc
+++ b/lily/font-size-engraver.cc
@@ -30,10 +30,11 @@ Font_size_engraver::do_process_requests ()
 void
 Font_size_engraver::acknowledge_element (Score_element_info e)
 {
-  if (size_i_)
-    e.elem_l_->set_elt_property (fontsize_scm_sym,
-                                gh_int2scm (size_i_));
+  if (size_i_ && e.elem_l_->get_elt_property (fontsize_scm_sym) == SCM_BOOL_F)
+    {
+      e.elem_l_->set_elt_property (fontsize_scm_sym,
+                                  gh_int2scm (size_i_));
+    }
 }
-
 ADD_THIS_TRANSLATOR (Font_size_engraver);