]> git.donarmstrong.com Git - lilypond.git/commitdiff
Issue 3388: -dpreview retains non-working page links in table of contents
authorDavid Kastrup <dak@gnu.org>
Wed, 24 Jul 2013 10:47:40 +0000 (12:47 +0200)
committerDavid Kastrup <dak@gnu.org>
Tue, 30 Jul 2013 21:22:56 +0000 (23:22 +0200)
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.

scm/framework-ps.scm

index 7a9fb454ff3b9730fa5525c7b2f24532c0389fea..3517f90ebbf01ce2dbc93c260d3cd528efac2030 100644 (file)
          (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)