X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=54f0f1c7a25ffdf0095956bc9db23191fa104a43;hb=75eebcb49e52d296b1da3e1074e0825d2c780db4;hp=8cb006d70ae48952f60003be88fedd092647519d;hpb=4ef9167955d2238b18b725a0eb3cde595ba93860;p=lilypond.git

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 8cb006d70a..54f0f1c7a2 100644
--- 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?)))