''

[lilypond.git] / scm / basic-properties.scm

diff --git a/scm/basic-properties.scm b/scm/basic-properties.scm
index fc67638e84bf142b2867d1c5bf858467bcd20c7a..5217d00c813b8c2b0bf57f2a380e447c86433c09 100644 (file)
--- a/scm/basic-properties.scm
+++ b/scm/basic-properties.scm
@@ -10,10 +10,6 @@
 (define (end-of-line-invisible d) (if (= d -1) '(#t . #t) '(#f . #f)))
 
 
-(define mark-visibility end-of-line-invisible)
-
-
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Bar lines.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -31,7 +27,9 @@
                          ("|s" . (() . "|"))
                          ("|:" . ("|" . "|:"))
                          ("|." . ("|." . ()))
-                         (".|" . (() . ".|"))
+
+                         ;; hmm... should we end with a barline here?
+                         (".|" . ("|" . ".|"))
                          (":|" . (":|" . ()))
                          ("||" . ("||" . ()))
                          (".|." . (".|." . ()))