Mercurial > emacs
changeset 23691:cfeb9bcbd372
(ps-print-prologue-1): Only use old LandscapeMode handling if
setpagedevice is not available.
(ps-begin-file): Fix typo.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Wed, 11 Nov 1998 14:35:27 +0000 |
| parents | 5149f79d6dfd |
| children | 8540faafb684 |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 11 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- 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)))