# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 910623923 0
# Node ID 53776c6e94b809ad976a77fcc7705163face4be8
# Parent  53553d8b253e22788339efdfbdcff68d64a51b41
(ps-print-prologue-1): In BeginDoc procedure, call setpagedevice to
specify the page size if setpagedevice is available.  This is
necessary to select the correct paper tray on Level 2 printers with
multiple paper sizes available.

(ps-begin-file): Cope with font names that contain spaces, and
call BeginDoc in a BeginSetup/EndSetup block.

diff -r 53553d8b253e -r 53776c6e94b8 lisp/ps-print.el
--- a/lisp/ps-print.el	Mon Nov 09 07:06:11 1998 +0000
+++ b/lisp/ps-print.el	Mon Nov 09 15:05:23 1998 +0000
@@ -2367,6 +2367,14 @@
   /SpaceWidth /f0 findfont setfont ( ) stringwidth pop def
   % ---- save the state of the document (useful for ghostscript!)
   /docState save def
+  % ---- [andrewi] set PageSize based on chosen dimensions
+  /setpagedevice where {
+    pop
+    1 dict dup
+      /PageSize [ PrintPageWidth LeftMargin RightMargin add add
+                  LandscapePageHeight ] put
+    setpagedevice
+  } if
   % ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7
   /JackGhostscript where {
     pop 1 27.7 29.7 div scale
@@ -4528,10 +4536,10 @@
   (ps-output "} def\n/printLocalBackground {\n} def\n")
 
   ;; Header fonts
-  (ps-output (format "/h0 %s /%s DefFont\n" ; /h0 14 /Helvetica-Bold DefFont
+  (ps-output (format "/h0 %s (%s) cvn DefFont\n" ; /h0 14 /Helvetica-Bold DefFont
 		     ps-header-title-font-size (ps-font 'ps-font-for-header
 							'bold))
-	     (format "/h1 %s /%s DefFont\n" ; /h1 12 /Helvetica DefFont
+	     (format "/h1 %s (%s) cvn DefFont\n" ; /h1 12 /Helvetica DefFont
 		     ps-header-font-size (ps-font 'ps-font-for-header
 						  'normal)))
 
@@ -4541,7 +4549,7 @@
   (let ((font (ps-font-alist 'ps-font-for-text))
 	(i 0))
     (while font
-      (ps-output (format "/f%d %s /%s DefFont\n"
+      (ps-output (format "/f%d %s (%s) cvn DefFont\n"
 			 i
 			 ps-font-size
 			 (ps-font 'ps-font-for-text (car (car font)))))
@@ -4554,8 +4562,7 @@
 
   (ps-mule-initialize)
 
-  (ps-output "\nBeginDoc\n\n"
-	     "%%EndPrologue\n"))
+  (ps-output "%%EndPrologue\n%%BeginSetup\nBeginDoc\n%%EndSetup\n\n")))
 
 (defun ps-header-dirpart ()
   (let ((fname (buffer-file-name)))