X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/57cb56f585af49a387108cc522065a0256b16faa..0c80afbd3a0143126ee8c0c147eeaa6c0ae060ce:/etc/ps-prin0.ps

diff --git a/etc/ps-prin0.ps b/etc/ps-prin0.ps
index a302eab39a..952c31d2b2 100644
--- a/etc/ps-prin0.ps
+++ b/etc/ps-prin0.ps
@@ -1,4 +1,35 @@
 % === BEGIN ps-print prologue 0
+% version: 6.0
+
+% Copyright (C) 2000, 2001  Free Software Foundation, Inc.
+%
+% This file is part of GNU Emacs.
+%
+% GNU Emacs is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2, or (at your option)
+% any later version.
+%
+% GNU Emacs is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with GNU Emacs; see the file COPYING.  If not, write to the
+% Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+% Boston, MA 02110-1301, USA.
+
+% As a special exception, the copyright holders of this module give
+% you permission to include the module in a Postscript file generated
+% by Emacs or other free software together with the result of
+% converting text to be printed, regardless of the license terms of
+% that text, and to use under terms of your choice the page images
+% resulting from formatting said combination.  If you modify this
+% module, you may extend this exception to your version of the module
+% but you are not obligated to do so.  If you do not wish to do so,
+% delete this exception statement from your version.
+
 
 %%BeginProcSet: ErrorHandler
 % Downloaded Error Break-page handler
@@ -11,12 +42,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 +61,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 +94,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 +106,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
@@ -123,7 +154,7 @@
  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