* The grand 2005-2006 replace.

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 8cb006d70ae48952f60003be88fedd092647519d..54f0f1c7a25ffdf0095956bc9db23191fa104a43 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 (define-module (scm framework-ps))
 
@@ -475,7 +475,9 @@
                     (equal? (format #f "~S" x) "+#.#")
                     (equal? (format #f "~S" x) "-#.#"))
                 0.0 x))
-          (list (car xext) (car yext) (cdr xext) (cdr yext))))
+          ;; set left of X to 0, to prevent barnumbers
+          ;; from sticking out of margin.
+          (list 0.0 (car yext) (cdr xext) (cdr yext))))
         (rounded-bbox (mm-to-bp-box bbox))
         (port (ly:outputter-port outputter))
         (header (eps-header paper rounded-bbox load-fonts?)))