diff options
author | Gerd Moellmann <gerd@gnu.org> | 2000-03-30 13:26:37 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-30 13:26:37 +0000 |
commit | 392a704f2bbab0f9dac2e29b249fb438f18a4a2f (patch) | |
tree | b3f7b6dd5850a50c65695ff6a58538918b7e7a3a /etc/ps-prin0.ps | |
parent | 6e1b1da60793ca08125469ccb01e1ce9b1ea6838 (diff) | |
download | emacs-392a704f2bbab0f9dac2e29b249fb438f18a4a2f.tar.gz |
Replace gs_languagelevel by languagelevel.
(DefOp): New proc.
Diffstat (limited to 'etc/ps-prin0.ps')
-rw-r--r-- | etc/ps-prin0.ps | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/etc/ps-prin0.ps b/etc/ps-prin0.ps index b57968fecc3..41f1a7f9673 100644 --- a/etc/ps-prin0.ps +++ b/etc/ps-prin0.ps @@ -100,7 +100,7 @@ }ifelse %%EndProcSet -gs_languagelevel 1 eq{ % operators for language level 2 only +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 @@ -109,10 +109,11 @@ gs_languagelevel 1 eq{ % operators for language level 2 only % device dependent operators -/setduplexmode where{pop} -{/setduplexmode /duplexmode where{pop/duplexmode}{/pop}ifelse load def}ifelse +/DefOp{ + dup where{pop pop pop} + {exch dup where{pop}{pop/pop}ifelse load def}ifelse}def -/settumble where{pop} -{/settumble /tumble where{pop/tumble}{/pop}ifelse load def}ifelse +/duplexmode /setduplexmode DefOp +/tumble /settumble DefOp % === END ps-print prologue 0 |