From: Rune Zedeler <rune@lilypond.org>
Date: Fri, 6 Sep 2002 22:55:52 +0000 (+0000)
Subject: 2002-09-07  Rune Zedeler  <rune@zedeler.dk>
X-Git-Tag: release/1.6.3~41
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=42847ec56788491878708c611ce8ba047b292ef4;p=lilypond.git

2002-09-07  Rune Zedeler  <rune@zedeler.dk>

	* scm/basic-properties.scm: (default-bar-number-visibility) added

	* ly/engraver-init.ly (ScoreContext) set barNumberVisibility to
	#default-bar-number-visibility
---

diff --git a/ChangeLog b/ChangeLog
index 8c7647c44c..ad5ac6de00 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-09-07  Rune Zedeler  <rune@zedeler.dk>
+
+	* scm/basic-properties.scm: (default-bar-number-visibility) added
+
+	* ly/engraver-init.ly (ScoreContext) set barNumberVisibility to
+	#default-bar-number-visibility
+	
 2002-09-06  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* input/test/poly-metric.ly: update to use Timing.
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 78a2fcb664..872679695d 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -397,7 +397,7 @@ ScoreContext = \translator {
 	automaticMelismata = ##t
 	
 	defaultBarType = #"|"
-	barNumberVisibility = #(lambda (n) (> n 1))
+	barNumberVisibility = #default-bar-number-visibility
 
 	explicitClefVisibility = #all-visible
 	explicitKeySignatureVisibility = #all-visible
diff --git a/scm/basic-properties.scm b/scm/basic-properties.scm
index b9f2683e46..b844dae3d0 100644
--- a/scm/basic-properties.scm
+++ b/scm/basic-properties.scm
@@ -46,3 +46,5 @@
      )
    )
      
+
+(define (default-bar-number-visibility n) (> n 1))