From: Andrew Innes <andrewi@gnu.org>
Date: Wed, 11 Nov 1998 14:35:27 +0000 (+0000)
Subject: (ps-print-prologue-1): Only use old LandscapeMode handling if
X-Git-Tag: emacs-20.4~1258
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bf0a58762473229c16bbecde7ca66062c9d6ada;p=emacs.git

(ps-print-prologue-1): Only use old LandscapeMode handling if
setpagedevice is not available.

(ps-begin-file): Fix typo.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 69041c2f6a1..7a6a2287de4 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -2367,23 +2367,21 @@ StandardEncoding 46 82 getinterval aload pop
   /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 @@ page-height == bm + print-height + tm - ho - hh
 
   (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)))