% === BEGIN ps-print prologue 1
-% version: 6.0
+% version: 6.1
-% Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+% Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
+% 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)
+% the Free Software Foundation; either version 3, or (at your option)
% any later version.
%
% GNU Emacs is distributed in the hope that it will be useful,
%
% 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., 59 Temple Place - Suite 330,
-% Boston, MA 02111-1307, USA.
+% 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.
+
% ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:
/ISOLatin1Encoding where{pop}{
% stack: --
/printBackground{
/BackgroundColor where{
+ /LHg LineHeight 0.65 mul def
+ /PHg PrintHeight LHg add def
pop gsave BackgroundColor SetColor
NumberOfColumns{
gsave
- 0 LineHeight 0.65 mul rmoveto
+ 0 LHg rmoveto
PrintWidth 0 rlineto
- 0 PrintHeight neg rlineto
+ 0 PHg neg rlineto
PrintWidth neg 0 rlineto
- 0 PrintHeight rlineto
+ 0 PHg rlineto
fill
grestore
PrintWidth InterColumn add 0 rmoveto
FooterLineHeight FooterLines 1 sub mul add
}def
+/HeaderClip{HeaderFrameStart moveto HeaderFramePath clip}def
+/FooterClip{FooterFrameStart moveto FooterFramePath clip}def
+
/strcat{
dup length 3 -1 roll dup length dup 4 -1 roll add string dup
0 5 -1 roll putinterval
}def
/HeaderText{
+ gsave HeaderClip
HeaderLinesRight HeaderLinesLeft
/HeaderStart HeaderLineHeight HeaderPad
HeaderFrameProperties 0 get
HeaderOrFooterText
+ grestore
}def
/FooterText{
+ gsave FooterClip
FooterLinesRight FooterLinesLeft
/FooterStart FooterLineHeight FooterPad
FooterFrameProperties 0 get
HeaderOrFooterText
+ grestore
}def
/ReportFontInfo{