X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=70b13848e4aa6ad898bac04f79d33c80dfdaf838;hb=b5b3e36d04fe1a35c9ffc5671b1351394783fbf6;hp=69f277203934985a01979476b56df1803c5a1bae;hpb=fbddf24d1f95485c421fa170fc10daba142b40c6;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 69f2772039..70b13848e4 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -157,6 +157,10 @@
                                 (ly:in-event-class? cause t))
                               point-and-click))))
             (let* ((location (ly:input-file-line-char-column music-origin))
+                   (raw-file (car location))
+                   (file (if (is-absolute? raw-file)
+                             raw-file
+                             (string-append (ly-getcwd) "/" raw-file)))
                    (x-ext (ly:grob-extent grob grob X))
                    (y-ext (ly:grob-extent grob grob Y)))
 
@@ -171,7 +175,7 @@
                              ;; Backslashes are not valid
                              ;; file URI path separators.
                              (ly:string-percent-encode
-                              (ly:string-substitute "\\" "/" (car location)))
+                              (ly:string-substitute "\\" "/" file))
 
                              (cadr location)
                              (caddr location)