From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 30 Mar 2000 13:26:37 +0000 (+0000)
Subject: Replace gs_languagelevel by languagelevel.
X-Git-Tag: emacs-pretest-21.0.90~4399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=392a704f2bbab0f9dac2e29b249fb438f18a4a2f;p=emacs.git

Replace gs_languagelevel by languagelevel.
(DefOp): New proc.
---

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