From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 6 Dec 2005 23:09:11 +0000 (+0000)
Subject: set bar-size, so bar-lines aren't
X-Git-Tag: release/2.7.22~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=692a9d37e6b827e5df1f6eed9c93854b774bc46d;p=lilypond.git

set bar-size, so bar-lines aren't
collapsed.
---

diff --git a/ChangeLog b/ChangeLog
index 3c508926f6..984add0693 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-07  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* ly/engraver-init.ly: set bar-size, so bar-lines aren't
+	collapsed.
+
 2005-12-06 Erik Sandberg  <mandolaerik@gmail.com>
 
 	* scm/music-functions.scm: Make phrasing slurs follow voice direction
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 90bfa08c87..8e332495ef 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -350,6 +350,12 @@ printing of a single line of lyrics.  "
   \override VerticalAxisGroup #'remove-first = ##t
   \override VerticalAxisGroup #'remove-empty = ##t
   \override SeparationItem #'padding = #0.2
+
+
+  %% make sure that barlines aren't collapsed, when
+  %% Bar_engraver is there.
+  \override BarLine #'bar-size = #0.1 
+  
 }
 
 \context {
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 6f1cf2b256..4e8e408db0 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1274,7 +1274,13 @@ that.
 (def-markup-command (bracketed-y-column layout props indices args)
   (list? markup-list?)
   "Make a column of the markups in @var{args}, putting brackets around
-the elements marked in @var{indices}, which is a list of numbers."
+the elements marked in @var{indices}, which is a list of numbers.
+
+"
+;;
+;; DROPME? This command is a relic from the old figured bass implementation.
+;;
+  
   (define (sublist lst start stop)
     (take (drop lst start) (- (1+ stop) start)))