* scm/output-gnome.scm (FIXME-glyph-string): New function. Cannot

[lilypond.git] / lily / ledger-line-engraver.cc

diff --git a/lily/ledger-line-engraver.cc b/lily/ledger-line-engraver.cc
index 7fda2b047b2927c389f8d23784b4a584ffc274bd..a51e888d4a518b82ec5d01caedf1f6904d5d6781 100644 (file)
--- a/lily/ledger-line-engraver.cc
+++ b/lily/ledger-line-engraver.cc
@@ -1,5 +1,5 @@
 /* 
-  ledger-line-engraver.cc --  implement Ledger_line_engraver=
+  ledger-line-engraver.cc --  implement Ledger_line_engraver =
   
   source file of the GNU LilyPond music typesetter
   
@@ -7,7 +7,6 @@
   
 */
 
-
 #include "group-interface.hh"
 #include "spanner.hh"
 #include "engraver.hh"
@@ -52,13 +51,14 @@ Ledger_line_engraver::finalize ()
 void
 Ledger_line_engraver::acknowledge_grob (Grob_info s)
 {
-  Pointer_group_interface::add_grob (span_, ly_symbol2scm ("note-heads"),
-                                    s.grob_);
+  if (!to_boolean (s.grob_->get_property ("no-ledgers")))
+    Pointer_group_interface::add_grob (span_, ly_symbol2scm ("note-heads"),
+                                      s.grob_);
 }
-ENTER_DESCRIPTION (Ledger_line_engraver,
-                  "Creates spanner to draw ledger lines",
+ADD_TRANSLATOR (Ledger_line_engraver,
+                  "Creates the spanner to draw ledger lines, and notices objects that need ledger lines",
                   /* creats*/       "LedgerLineSpanner",
                   /* accepts */     "",
-                  /* acks  */      "custos-interface note-head-interface", // ledgered-interface? 
+                  /* acks  */      "ledgered-interface", // ledgered-interface? 
                   /* reads */       "",
                   /* write */       "")