summaryrefslogtreecommitdiff
path: root/etc/ps-prin0.ps
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2000-03-30 13:26:37 +0000
committerGerd Moellmann <gerd@gnu.org>2000-03-30 13:26:37 +0000
commit392a704f2bbab0f9dac2e29b249fb438f18a4a2f (patch)
treeb3f7b6dd5850a50c65695ff6a58538918b7e7a3a /etc/ps-prin0.ps
parent6e1b1da60793ca08125469ccb01e1ce9b1ea6838 (diff)
downloademacs-392a704f2bbab0f9dac2e29b249fb438f18a4a2f.tar.gz
Replace gs_languagelevel by languagelevel.
(DefOp): New proc.
Diffstat (limited to 'etc/ps-prin0.ps')
-rw-r--r--etc/ps-prin0.ps11
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