From: David Kastrup <dak@gnu.org>
Date: Wed, 24 Jul 2013 10:47:40 +0000 (+0200)
Subject: Issue 3388: -dpreview retains non-working page links in table of contents
X-Git-Tag: release/2.17.24-1~16^2~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cbf569e4d6249a76730d80da73219c12ce863cea;p=lilypond.git

Issue 3388: -dpreview retains non-working page links in table of contents

This just disables mark_page_link in the EPS header.  When including
EPS files in LilyPond itself, BeginEPSF and EndEPSF should limit the
effect of this redefinition to the EPS file itself, restoring the
userdict afterwards.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 7a9fb454ff..3517f90ebb 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -539,6 +539,7 @@
          (header (eps-header paper rounded-bbox load-fonts)))
     (display header port)
     (write-preamble paper load-fonts port)
+    (display "/mark_page_link { pop pop pop pop pop } bind def\n" port)
     (display "gsave set-ps-scale-to-lily-scale\n" port)
     (ly:outputter-dump-stencil outputter dump-me)
     (display "stroke grestore\n%%Trailer\n%%EOF\n" port)