diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-04-29 19:35:00 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-04-29 19:35:00 +0000 |
| commit | 57cb56f585af49a387108cc522065a0256b16faa (patch) | |
| tree | f28013b5e2966e944429ecbdc71e6e68004bbc0f /etc/ps-prin0.ps | |
| parent | c6d0703ae5f2e5f7152deda647d24cf4f40d2104 (diff) | |
| download | emacs-57cb56f585af49a387108cc522065a0256b16faa.tar.gz | |
*** empty log message ***
Diffstat (limited to 'etc/ps-prin0.ps')
| -rw-r--r-- | etc/ps-prin0.ps | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/etc/ps-prin0.ps b/etc/ps-prin0.ps index 41f1a7f9673..a302eab39a5 100644 --- a/etc/ps-prin0.ps +++ b/etc/ps-prin0.ps @@ -100,12 +100,22 @@ }ifelse %%EndProcSet -languagelevel 1 eq{ % operators for language level 2 only - /<<{mark}bind def - />>{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def - /setpagedevice{pop}bind def - /packedarray{array astore readonly}bind def -}if + +% operators for language level 2 only + +(<<)cvn where % << operator +{pop/BMark(<<)cvn load def} +{/BMark{mark}bind def}ifelse +(>>)cvn where % >> operator +{pop/EMark(>>)cvn load def} +{/EMark{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def}ifelse +/setpagedevice where % setpagedevice +{pop} +{/setpagedevice{pop}bind def}ifelse +/packedarray where % packedarray +{pop} +{/packedarray{array astore readonly}bind def}ifelse + % device dependent operators |