X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=c83b613cbd1ceca68b2157886cb05fb0b5bfa393;hb=a584ab7de523d74fb28ff79d224414af8ac03615;hp=f20c42f1e1012cea4bd2d7b6142f93d5b3aecbf8;hpb=eebafce7c459edf00becf210acc06ce36eb80462;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index f20c42f1e1..c83b613cbd 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -261,6 +261,16 @@
 	     (cdr y)
 	     url))
 
+(define (page-link page-no x y)
+  (if (number? page-no)
+    (ly:format "~a ~a currentpoint vector_add  ~a ~a currentpoint vector_add ~a mark_page_link"
+	       (car x)
+	       (car y)
+	       (cdr x)
+	       (cdr y)
+	       page-no)
+    ""))
+
 (define* (path thickness exps #:optional (cap 'round) (join 'round) (fill? #f))
   (define (convert-path-exps exps)
     (if (pair? exps)