From 439593b97dc0b5cd9149bb8238904fb517938837 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 17 Dec 2006 01:12:21 +0000 Subject: propagate heiko fix from tex-k git-svn-id: svn://tug.org/texlive/trunk@2754 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/dvips/base/hps.pro | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Master/texmf/dvips') diff --git a/Master/texmf/dvips/base/hps.pro b/Master/texmf/dvips/base/hps.pro index f1d33a14d66..0fc0b6ddf2e 100644 --- a/Master/texmf/dvips/base/hps.pro +++ b/Master/texmf/dvips/base/hps.pro @@ -8,11 +8,11 @@ roll exch pop true}ifelse}bind def/lookuptarget{exch rfch dup (target dictionary unknown\012)print false}ifelse}bind def/savecount 0 def/stackstopped{count counttomark sub/savecount exch store stopped count savecount sub 1 sub dup 0 gt{{exch pop}repeat}{pop}ifelse}bind def -/tempstring 256 string def/targetvalidate{1 index dup length 255 gt exch -dup(/)search{pop pop pop exch pop true exch}{pop}ifelse cvn tempstring -cvs token pop pop length 0 ne or not}bind def/targetdump-hook where{pop} -{/targetdump-hook{dup mark exch gsave initmat setmatrix{{mark/Dest 4 2 -roll targetvalidate{aload pop exch pop/Page 3 1 roll/View exch[exch +/tempstring 128 string def/targetvalidate{1 index dup length 127 gt exch +tempstring cvs dup(/)search{pop pop pop exch pop true exch}{pop}ifelse +token{pop length 0 ne}{true}ifelse or not}bind def/targetdump-hook where +{pop}{/targetdump-hook{dup mark exch gsave initmat setmatrix{{mark/Dest +4 2 roll targetvalidate{aload pop exch pop/Page 3 1 roll/View exch[exch /FitH exch]/DEST pdfmark}{cleartomark}ifelse}forall}stackstopped pop grestore}bind def}ifelse/baseurl{mark exch 1 dict dup 3 -1 roll/Base exch put/URI exch/DOCVIEW{pdfmark}stackstopped pop}bind def -- cgit v1.2.3