From 392a704f2bbab0f9dac2e29b249fb438f18a4a2f Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 30 Mar 2000 13:26:37 +0000
Subject: [PATCH] Replace gs_languagelevel by languagelevel. (DefOp): New proc.

---
 etc/ps-prin0.ps | 11 ++++++-----
 1 file 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
-- 
2.39.5