CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Jan Nieuwenhuizen <[EMAIL PROTECTED]> 05/04/25 11:23:43
Modified files:
scm : output-ps.scm
. : ChangeLog
Log message:
(grob-cause): Bugfix.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/output-ps.scm.diff?tr1=1.131&tr2=1.132&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3498&tr2=1.3499&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3498 lilypond/ChangeLog:1.3499
--- lilypond/ChangeLog:1.3498 Mon Apr 25 11:15:30 2005
+++ lilypond/ChangeLog Mon Apr 25 11:23:43 2005
@@ -1,5 +1,7 @@
2005-04-25 Jan Nieuwenhuizen <[EMAIL PROTECTED]>
+ * scm/output-ps.scm (grob-cause): Bugfix.
+
* scm/lily.scm (ly:load): Remove x11-color.
* stepmake/aclocal.m4 (STEPMAKE_GET_EXECUTABLE): Bugfix: do not
Index: lilypond/scm/output-ps.scm
diff -u lilypond/scm/output-ps.scm:1.131 lilypond/scm/output-ps.scm:1.132
--- lilypond/scm/output-ps.scm:1.131 Mon Apr 18 20:47:15 2005
+++ lilypond/scm/output-ps.scm Mon Apr 25 11:23:43 2005
@@ -202,16 +202,15 @@
(ly:music-property cause 'origin)))
(location (if (ly:input-location? music-origin)
(ly:input-file-line-column music-origin)
- #f
- ))
+ #f))
(file (if location
- (if (eq? (string-ref (car location) 0 ) #\/)
+ (if (and (> 0 (string-length (car location)))
+ (eq? (string-ref (car location) 0) #\/))
location
(string-append (getcwd) "/" (car location)))
#f))
(x-ext (ly:grob-extent grob grob X))
- (y-ext (ly:grob-extent grob grob Y))
- )
+ (y-ext (ly:grob-extent grob grob Y)))
(if (and location
(< 0 (interval-length x-ext))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
