diff options
author | Karl Berry <karl@freefriends.org> | 2006-12-17 01:12:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-12-17 01:12:21 +0000 |
commit | 439593b97dc0b5cd9149bb8238904fb517938837 (patch) | |
tree | 0021346ce7683749b2399c9950124baba55b6f84 /Master/texmf/dvips | |
parent | 2b7382af64d26874067fdefb5ef2fe1e31b20f69 (diff) |
propagate heiko fix from tex-k
git-svn-id: svn://tug.org/texlive/trunk@2754 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/dvips')
-rw-r--r-- | Master/texmf/dvips/base/hps.pro | 10 |
1 files changed, 5 insertions, 5 deletions
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 |