lilypond-1.3.29

diff --git a/lily/staff-symbol-engraver.cc b/lily/staff-symbol-engraver.cc
index 30ff14f405207739df9218cd9910bd6497c6869d..eb32b20db08c916033bf6fff5ca53f6716fb880d 100644 (file)
--- a/lily/staff-symbol-engraver.cc
+++ b/lily/staff-symbol-engraver.cc
@@ -54,6 +54,14 @@ Staff_symbol_engraver::do_creation_processing()
 void
 Staff_symbol_engraver::do_removal_processing()
 {
+  SCM n = get_property ("numberOfStaffLines",0);
+  SCM ss = get_property ("staffSpace", 0);
+
+  if (gh_number_p (ss))
+    span_p_->set_elt_property ("staff-space", ss);
+  if (gh_number_p (n))
+    span_p_->set_elt_property ("line-count", n);
+
   span_p_->set_bounds(RIGHT,get_staff_info().command_pcol_l ());
   typeset_element (span_p_);
   span_p_ =0;

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index a13394ae094921f93b94a048639f6293523ac239..619e0591aa55aec73308222d786507f3ce234821 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -65,10 +65,9 @@
        )
   )    
 
+; don't do this yet. Depends on whennn the staff is really announced
 (define generic-staff-symbol-properties
   (cons "Staff_symbol" (list
-                       (list 'numberOfStaffLines number? 'line-count)
-                       (list 'staffSpace number? 'staff-space)
                        )
        )
   )
@@ -168,7 +167,7 @@
    generic-timesig-properties
    generic-clef-properties
    generic-collision-properties
-   generic-staff-symbol-properties
+;   generic-staff-symbol-properties
    generic-All-properties      
    )
   )