(grob-cause): don't add cwd if path starts

with /

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index 13ebb320c9e3068ba458c4c90020ef7041fba55a..2cf386d68e5e928d39de8d212509885a8d111549 100644 (file)
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -34,7 +34,8 @@ See user manual, \NAME\
 @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 @@ b''2 \glissando b'
 @item
 Chord names may now be rendered in Italian and French.
 
+@item
 @file{lilypond-book} now makes @file{lilypond} print line numbers
 relative to the input file for every error message.
 

diff --git a/buildscripts/clean-fonts.sh b/buildscripts/clean-fonts.sh
deleted file mode 100644 (file)
index 0dc0ff2..0000000
--- a/buildscripts/clean-fonts.sh
+++ /dev/null
@@ -1,42 +0,0 @@
-#!@SHELL@
-# use kpsewhich?
-# maybe (optionally) (not) clean stuff from other versions, ie, don't clean
-#     /var/spool/texmf/tfm/lilypond/<NOT-OUR-VERSION>/
-# ?
-
-VERSION="@TOPLEVEL_VERSION@"
-
-case  $# in
-0) 
-    WHAT="" ;;
-1)
-    WHAT=$1;;
-esac
-
-dirs=".
-/var/lib/texmf
-/var/spool/texmf
-/var/tmp/texfonts
-/var/texfonts
-/var/cache/fonts
-/usr/share/texmf/fonts
-"
-
-for i in $dirs; do
-       if [ -d "$i" ]; then
-               TEXDIRS="$TEXDIRS $i"
-       fi
-done
-
-if [ -z "$TEXDIRS" -o "$TEXDIRS" = "." ]; then
-    TEXDIRS=". /var"
-fi
-
-# remove possibly stale .pk/.tfm files 
-FILES=$(find $TEXDIRS -name "feta*$WHAT*tfm" \
-  -or -name "feta*$WHAT*pk" \
-  -or -name "parmesan$WHAT*tfm" \
-  -or -name "parmesan*$WHAT*pk")
-
-echo removing $FILES
-rm  -f $FILES /tmp/cleaning-font-dummy

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 6183c2899556bf0030eead7bbeeccbf986f4830d..500f65abb063d63243079164fe919e99797fde3e 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -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))