From ba55916d8aca7be7fc056630e55548a8f5cf38d7 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 21:38:19 +0100
Subject: [PATCH] New time signature on starting staff in next system doesn't
 take space.

---
 lily/time-signature-engraver.cc   | 19 +++++++++++++++----
 ly/engraver-init.ly               |  2 ++
 scm/define-context-properties.scm |  2 ++
 3 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/lily/time-signature-engraver.cc b/lily/time-signature-engraver.cc
index 68a7e178b0..5cf3ebdc61 100644
--- a/lily/time-signature-engraver.cc
+++ b/lily/time-signature-engraver.cc
@@ -66,9 +66,14 @@ Time_signature_engraver::process_music ()
 		       int (scm_to_int (scm_car (fr)))));
 	}
 
-      last_time_fraction_ = fr;
       time_signature_ = make_item ("TimeSignature", SCM_EOL);
       time_signature_->set_property ("fraction", fr);
+
+      if (last_time_fraction_ == SCM_BOOL_F)
+	time_signature_->set_property ("break-visibility",
+				       get_property ("implicitTimeSignatureVisibility"));
+      
+      last_time_fraction_ = fr;
     }
 }
 
@@ -81,7 +86,13 @@ Time_signature_engraver::stop_translation_timestep ()
 #include "translator.icc"
 
 ADD_TRANSLATOR (Time_signature_engraver,
-		/* doc */ "Create a TimeSignature whenever @code{timeSignatureFraction} changes",
-		/* create */ "TimeSignature",
-		/* read */ "",
+		/* doc */ "Create a @ref{TimeSignature} whenever @code{timeSignatureFraction} changes",
+		/* create */
+		"TimeSignature ",
+		
+		/* read */
+		"implicitTimeSignatureVisibility "
+		"timeSignatureFraction "
+
+		,
 		/* write */ "");
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 063b9b44f9..afc251b00b 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -521,6 +521,8 @@ AncientRemoveEmptyStaffContext = \context {
   
   explicitClefVisibility = #all-visible
   explicitKeySignatureVisibility = #all-visible
+  implicitTimeSignatureVisibility = #end-of-line-invisible
+  
   autoBeamSettings = #default-auto-beam-settings
   autoBeaming = ##t
   autoBeamCheck = #default-auto-beam-check
diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index 43a738d6ae..ee889b916a 100644
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -249,6 +249,8 @@ selector for tab notation.")
      (ignoreBarChecks ,boolean? "Ignore bar checks")
      (ignoreMelismata ,boolean? "Ignore melismata for this @internalsref{Lyrics} line.")
 
+     (implicitTimeSignatureVisibility ,vector? "break visibility for the default timesignature.")
+
      (implicitBassFigures ,list? "List of bass figures that are not
 printed as numbers, but only as extender lines.")
      
-- 
2.39.5