From: fred <fred>
Date: Wed, 27 Mar 2002 00:01:46 +0000 (+0000)
Subject: lilypond-1.3.101
X-Git-Tag: release/1.5.59~1193
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cac4bb8b1fa63c0a821415316a5424c4a818844a;p=lilypond.git

lilypond-1.3.101
---

diff --git a/scm/basic-properties.scm b/scm/basic-properties.scm
index 7955f6a630..89efe54dae 100644
--- a/scm/basic-properties.scm
+++ b/scm/basic-properties.scm
@@ -2,6 +2,7 @@
 
 ;; See documentation of Item::visibility_lambda_
 (define (begin-of-line-visible d) (if (= d 1) '(#f . #f) '(#t . #t)))
+(define (end-of-line-visible d) (if (= d -1) '(#f . #f) '(#t . #t)))
 (define (spanbar-begin-of-line-invisible d) (if (= d -1) '(#t . #t) '(#f . #f)))
 (define (all-visible d) '(#f . #f))
 (define (all-invisible d) '(#t . #t))
@@ -203,6 +204,8 @@
 ;; (Measured in staff space)
 (define default-break-align-space-alist
  '(
+   ((Staff_bar Custos) . (minimum-space 2.0))
+   ((Custos begin-of-note) . (minimum-space 0.0))
    ((none Instrument_name) . (extra-space 1.0))
    ((Instrument_name Left_edge_item) . (extra-space 1.0))
    ((Left_edge_item Clef_item) . (extra-space 1.0))