CVSROOT:        /cvsroot/lilypond
Module name:    lilypond
Branch:         
Changes by:     Han-Wen Nienhuys <[EMAIL PROTECTED]>    05/04/18 20:47:16

Modified files:
        Documentation/topdocs: NEWS.tely 
        scm            : output-ps.scm 
Removed files:
        buildscripts   : clean-fonts.sh 

Log message:
        (grob-cause): don't add cwd if path starts
        with /

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/Documentation/topdocs/NEWS.tely.diff?tr1=1.27&tr2=1.28&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/output-ps.scm.diff?tr1=1.130&tr2=1.131&r1=text&r2=text

Patches:
Index: lilypond/Documentation/topdocs/NEWS.tely
diff -u lilypond/Documentation/topdocs/NEWS.tely:1.27 
lilypond/Documentation/topdocs/NEWS.tely:1.28
--- lilypond/Documentation/topdocs/NEWS.tely:1.27       Mon Apr 18 12:37:16 2005
+++ lilypond/Documentation/topdocs/NEWS.tely    Mon Apr 18 20:47:15 2005
@@ -34,7 +34,8 @@
 @itemize @bullet
 
 @item
-Lines, such glissandi or Text-spanner lines can have arrows at the end,
+Lines, such as glissandi or Text-spanner lines, can have arrows at the
+end, e.g.
 
 @lilypond[verbatim,fragment]
 \override Glissando #'arrow = ##t
@@ -44,6 +45,7 @@
 @item
 Chord names may now be rendered in Italian and French.
 
[EMAIL PROTECTED]
 @file{lilypond-book} now makes @file{lilypond} print line numbers
 relative to the input file for every error message.
 
Index: lilypond/scm/output-ps.scm
diff -u lilypond/scm/output-ps.scm:1.130 lilypond/scm/output-ps.scm:1.131
--- lilypond/scm/output-ps.scm:1.130    Wed Apr 13 00:15:06 2005
+++ lilypond/scm/output-ps.scm  Mon Apr 18 20:47:15 2005
@@ -204,7 +204,10 @@
                       (ly:input-file-line-column music-origin)
                       #f
                       ))
-        (file (if location (string-append (getcwd) "/" (car location))
+        (file (if location
+                  (if (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)) 


_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs

Reply via email to