*** empty log message ***

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 01a73c12e01932fddf5c0a49587de9c226d73109..fbdffd487b0058ec08c9250b42a3693342a209ab 100644 (file)
--- 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))