# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 910794927 0
# Node ID cfeb9bcbd372ad669f26936ee6eb5e66a8c5f89a
# Parent  5149f79d6dfdb481fa4518a81a4d64bae77e8264
(ps-print-prologue-1): Only use old LandscapeMode handling if
setpagedevice is not available.

(ps-begin-file): Fix typo.

diff -r 5149f79d6dfd -r cfeb9bcbd372 lisp/ps-print.el
--- a/lisp/ps-print.el	Wed Nov 11 11:12:09 1998 +0000
+++ b/lisp/ps-print.el	Wed Nov 11 14:35:27 1998 +0000
@@ -2367,23 +2367,21 @@
   /SpaceWidth /f0 findfont setfont ( ) stringwidth pop def
   % ---- save the state of the document (useful for ghostscript!)
   /docState save def
+  /JackGhostscript where {pop 1 27.7 29.7 div scale}if
   % ---- [andrewi] set PageSize based on chosen dimensions
   /setpagedevice where {
     pop
     1 dict dup
-      /PageSize [ PrintPageWidth LeftMargin RightMargin add add
-                  LandscapePageHeight ] put
+    /PageSize [ PrintPageWidth LeftMargin add RightMargin 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
-  } if
-  LandscapeMode {
-    % ---- translate to bottom-right corner of Portrait page
-    LandscapePageHeight 0 translate
-    90 rotate
-    } if
+  }{
+    LandscapeMode {
+      % ---- translate to bottom-right corner of Portrait page
+      LandscapePageHeight 0 translate
+      90 rotate
+    }if
+  }ifelse
   /ColumnWidth PrintWidth InterColumn add def
   % ---- translate to lower left corner of TEXT
   LeftMargin BottomMargin translate
@@ -4562,7 +4560,7 @@
 
   (ps-mule-initialize)
 
-  (ps-output "%%EndPrologue\n%%BeginSetup\nBeginDoc\n%%EndSetup\n\n")))
+  (ps-output "%%EndPrologue\n%%BeginSetup\nBeginDoc\n%%EndSetup\n\n"))
 
 (defun ps-header-dirpart ()
   (let ((fname (buffer-file-name)))