Merge branch 'master' of ssh+git://git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 54bb6681bf588d992dc0c5faf19487f46f9a1fb6..7cae78ebb11726d36116ca26c1c55d0d196fddb6 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -191,6 +191,14 @@ compressFullBarRests = {
   \set Score.skipBars = ##t
 }
 
+numericTimeSignature = {
+  \override Staff.TimeSignature #'style = #'()
+}
+
+defaultTimeSignature = {
+  \revert Staff.TimeSignature #'style
+}
+
 
 % For drawing vertical chord brackets with \arpeggio
 % This is a shorthand for the value of the print-function property