From 8b104b1a5a3225bcf3d0620789a9abbf73c0f0eb Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 22:46:27 +0000
Subject: [PATCH] lilypond-1.3.29

---
 lily/staff-symbol-engraver.cc | 8 ++++++++
 scm/generic-property.scm      | 5 ++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/lily/staff-symbol-engraver.cc b/lily/staff-symbol-engraver.cc
index 30ff14f405..eb32b20db0 100644
--- 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 a13394ae09..619e0591aa 100644
--- 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      
    )
   )
-- 
2.39.5