X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/392a704f2bbab0f9dac2e29b249fb438f18a4a2f..d2251bbf79c3a3c7739f0813ac85c0f99d295d6d:/etc/ps-prin0.ps

diff --git a/etc/ps-prin0.ps b/etc/ps-prin0.ps
index 41f1a7f967..89610393d5 100644
--- a/etc/ps-prin0.ps
+++ b/etc/ps-prin0.ps
@@ -1,4 +1,5 @@
 % === BEGIN ps-print prologue 0
+% version: 6.0
 
 %%BeginProcSet: ErrorHandler
 % Downloaded Error Break-page handler
@@ -11,12 +12,12 @@
 {
  /ps$brkpage 64 dict def
  ps$brkpage begin
-  /tx 0 def /ty 0 def /toy 0 def /tox 0 def
+  /tx 0 def/ty 0 def/toy 0 def/tox 0 def
   /prnt{
-   dup type /stringtype ne{=string cvs}if
+   dup type/stringtype ne{=string cvs}if
    dup length 6 mul
-   /tx exch def /ty 10 def
-   currentpoint /toy exch def /tox exch def
+   /tx exch def/ty 10 def
+   currentpoint/toy exch def/tox exch def
    1 setgray newpath
    tox toy 2 sub moveto
    0 ty rlineto tx 0 rlineto
@@ -30,8 +31,8 @@
   /lmargin 72 def
   /rmargin 72 def
   /tprint{
-   dup length cp add rmargin gt{nl /cp 0 def}if
-   dup length cp add /cp exch def
+   dup length cp add rmargin gt{nl/cp 0 def}if
+   dup length cp add/cp exch def
    prnt
   }readonly def
   /cvsprint{=string cvs tprint( )tprint}readonly def
@@ -63,8 +64,8 @@
     {({)tprint{typeprint}forall(})tprint}
     {([)tprint{typeprint}forall(])tprint}ifelse}
    {pop(-packedarray-)tprint}ifelse}readonly def
-  /courier /Courier findfont 10 scalefont def
-  /OLDhandleerror errordict /handleerror get def
+  /courier/Courier findfont 10 scalefont def
+  /OLDhandleerror errordict/handleerror get def
  end %ps$brkpage
 
  /handleerror{
@@ -75,17 +76,17 @@
    ErrorMessage 1 and 0 ne{ % print on paper
     courier setfont lmargin 720 moveto
     (# ERROR: )prnt errorname prnt nl
-    (# OFFENDING COMMAND: )prnt /command load prnt
-    $error /ostack known
-    {nl nl(# STACK:)prnt nl nl $error /ostack get aload length{==}repeat}if
-    $error /errorinfo known
-    {nl nl(# ERRORINFO:)prnt nl nl $error /errorinfo get aload length{==}repeat}if
-    systemdict /showpage get exec}if
+    (# OFFENDING COMMAND: )prnt/command load prnt
+    $error/ostack known
+    {nl nl(# STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
+    $error/errorinfo known
+    {nl nl(# ERRORINFO:)prnt nl nl $error/errorinfo get aload length{==}repeat}if
+    systemdict/showpage get exec}if
    ErrorMessage 2 and 0 ne{ % send back to printing system
     (\%\%[ Error: )print errorname =print
     (; OffendingCommand: )print/command load =print
-    $error /errorinfo known
-    {(; ErrorInfo:)print $error /errorinfo get aload length{( )=print =print}repeat}if
+    $error/errorinfo known
+    {(; ErrorInfo:)print $error/errorinfo get aload length{( )=print =print}repeat}if
     ( ]\%\%)= flush
     (\%\%[ Rest of job is ignored ]\%\%)= flush}if
    /newerror true store}if
@@ -100,12 +101,22 @@
 }ifelse
 %%EndProcSet
 
-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
- /packedarray{array astore readonly}bind def
-}if
+
+% operators for language level 2 only
+
+(<<)cvn where			% << operator
+{pop/BMark(<<)cvn load def}
+{/BMark{mark}bind def}ifelse
+(>>)cvn where			% >> operator
+{pop/EMark(>>)cvn load def}
+{/EMark{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def}ifelse
+/setpagedevice where		% setpagedevice
+{pop}
+{/setpagedevice{pop}bind def}ifelse
+/packedarray where		% packedarray
+{pop}
+{/packedarray{array astore readonly}bind def}ifelse
+
 
 % device dependent operators
 
@@ -113,7 +124,7 @@ languagelevel 1 eq{ % operators for language level 2 only
  dup where{pop pop pop}
  {exch dup where{pop}{pop/pop}ifelse load def}ifelse}def
 
-/duplexmode /setduplexmode DefOp
-/tumble /settumble DefOp
+/duplexmode/setduplexmode DefOp
+/tumble/settumble DefOp
 
 % === END ps-print prologue 0