release: 1.3.18

[lilypond.git] / lily / mark-engraver.cc

diff --git a/lily/mark-engraver.cc b/lily/mark-engraver.cc
index e00947c9ab4100c53ba4b94ab68b26c3d8bd71b4..52dbfbe921215c00a554ca73a476dc7ae01c917a 100644 (file)
--- a/lily/mark-engraver.cc
+++ b/lily/mark-engraver.cc
@@ -45,8 +45,11 @@ Mark_engraver::do_process_requests ()
   if (mark_req_l_)
     {
       create_items (mark_req_l_);
-      text_p_->text_str_ = mark_req_l_->str_;
-      SCM st = ly_str02scm ((text_p_->text_str_.index_any_i ("0123456789")  >= 0 )
+
+      String t = mark_req_l_->str_;
+      text_p_->set_elt_property ("text",
+                                ly_str02scm ( t.ch_C()));
+      SCM st = ly_str02scm ((t.index_any_i ("0123456789")  >= 0 )
                            ? "mark" : "large");
       text_p_->set_elt_property ("style",  st);
     }