(grob-cause): Bugfix.

diff --git a/ChangeLog b/ChangeLog
index 220b2971fc603b5ca11a96b888c3f54a7dd4b47d..a587b30b798e8837dcb51a23f1082386c4cb4983 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-04-25  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/output-ps.scm (grob-cause): Bugfix.
+
        * scm/lily.scm (ly:load): Remove x11-color.
 
        * stepmake/aclocal.m4 (STEPMAKE_GET_EXECUTABLE): Bugfix: do not

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