X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fkey-engraver.cc;h=110e6717e1e2fcb4ee929f6ee6a261fce852a605;hb=f988425624a6f6d1a48aea0ac0c1c84ff0857e56;hp=104687dbd5ef2046e18932904a97d9dc88fb28dd;hpb=8b8b92e31703bf4a23683efff479793227ad39c1;p=lilypond.git

diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index 104687dbd5..110e6717e1 100644
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -84,11 +84,13 @@ Key_engraver::create_key (bool def)
       announce_element (item_p_,keyreq_l_);
     }
 
-  if (!def)
-    item_p_->set_elt_property ("visibility-lambda",
-			       scm_eval2 (ly_symbol2scm  ("all-visible"),
-					  SCM_EOL));
 
+  if (!def)
+    {
+      SCM vis = get_property ("explicitKeySignatureVisibility"); 
+      if (gh_procedure_p (vis))
+	item_p_->set_elt_property ("visibility-lambda",vis);
+    }
 }