From 50bce7aa880a4092251b380d380979652b6f0422 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:48:52 +0000
Subject: [PATCH] lilypond-1.1.39

---
 lily/clef-item.cc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lily/clef-item.cc b/lily/clef-item.cc
index 2e65640039..a2d300f516 100644
--- a/lily/clef-item.cc
+++ b/lily/clef-item.cc
@@ -63,8 +63,11 @@ Clef_item::do_add_processing ()
 
 	  Real r = do_height ()[d] + g->extent (Y_AXIS)[-d];
 	  g->dim_cache_[Y_AXIS].set_offset (r);
-	  g->set_elt_property (visibility_lambda_scm_sym,
-			       get_elt_property (visibility_lambda_scm_sym));
+
+	  SCM my_vis = get_elt_property (visibility_lambda_scm_sym);
+	  if (my_vis != SCM_BOOL_F)
+	    g->set_elt_property (visibility_lambda_scm_sym, SCM_CDR (my_vis));
+			
 	}
 
     }
-- 
2.39.5