Mercurial > emacs
changeset 28427:15c0a66a4a8b
Replace gs_languagelevel by languagelevel.
(DefOp): New proc.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 30 Mar 2000 13:26:37 +0000 |
| parents | 5236c7327cd6 |
| children | b2d43a699564 |
| files | etc/ps-prin0.ps |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/ps-prin0.ps Thu Mar 30 13:21:45 2000 +0000 +++ b/etc/ps-prin0.ps Thu Mar 30 13:26:37 2000 +0000 @@ -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 @@ % 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