From 7e79448be56dad04b97e89e0c49dce64bf16100e Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 18 Apr 2005 20:47:15 +0000
Subject: [PATCH] (grob-cause): don't add cwd if path starts with /

---
 Documentation/topdocs/NEWS.tely |  4 +++-
 buildscripts/clean-fonts.sh     | 42 ---------------------------------
 scm/output-ps.scm               |  5 +++-
 3 files changed, 7 insertions(+), 44 deletions(-)
 delete mode 100644 buildscripts/clean-fonts.sh

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index 13ebb320c9..2cf386d68e 100644
--- 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
index 0dc0ff2684..0000000000
--- 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 6183c28995..500f65abb0 100644
--- 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)) 
-- 
2.39.5