Mercurial > emacs
changeset 23666:53776c6e94b8
(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.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Mon, 09 Nov 1998 15:05:23 +0000 |
| parents | 53553d8b253e |
| children | 0351c9791549 |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)))