X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=fbdffd487b0058ec08c9250b42a3693342a209ab;hb=150ff905539154877da98ae5d59fcf8938dcda97;hp=01a73c12e01932fddf5c0a49587de9c226d73109;hpb=3cbec898b20a89e07abff947a94c5d2102734011;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 01a73c12e0..fbdffd487b 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -221,7 +221,10 @@
 	 (y-ext (ly:grob-extent grob grob Y)) 
 	 )
 
-    (if location
+    (if (and location
+	     (< 0 (interval-length x-ext))
+	     (< 0 (interval-length y-ext)))
+	
 	(format "~a ~a ~a ~a (textedit://~a:~a:~a) mark_URI\n"
 		(+ (car offset) (car x-ext))
 		(+ (cdr offset) (car y-ext))