release: 1.3.10

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

diff --git a/lily/mark-engraver.cc b/lily/mark-engraver.cc
index f8246342083d4f89d80bda76aab1071d4450d070..e00947c9ab4100c53ba4b94ab68b26c3d8bd71b4 100644 (file)
--- a/lily/mark-engraver.cc
+++ b/lily/mark-engraver.cc
@@ -3,12 +3,12 @@
 
   source file of the GNU LilyPond music typesetter
 
- (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1998--1999 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 #include "command-request.hh"
 #include "mark-engraver.hh"
-#include "engraver-group.hh"
-#include "g-text-item.hh"
+#include "engraver-group-engraver.hh"
+#include "text-item.hh"
 
 
 ADD_THIS_TRANSLATOR (Mark_engraver);
@@ -18,6 +18,7 @@ Mark_engraver::Mark_engraver ()
   mark_req_l_ = 0;
   axis_ = Y_AXIS;
   type_ = "mark";
+  visibility_lambda_ = ly_eval_str ("mark-visibility");
 }
 
 void
@@ -45,7 +46,9 @@ Mark_engraver::do_process_requests ()
     {
       create_items (mark_req_l_);
       text_p_->text_str_ = mark_req_l_->str_;
-      text_p_->style_str_ = text_p_->text_str_.index_any_i ("0123456789") >= 0 
-       ? "mark" : "Large";
+      SCM st = ly_str02scm ((text_p_->text_str_.index_any_i ("0123456789")  >= 0 )
+                           ? "mark" : "large");
+      text_p_->set_elt_property ("style",  st);
     }
 }
+