Mercurial > emacs
changeset 56552:12ee8343c078
Tiny change.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Tue, 27 Jul 2004 02:10:51 +0000 |
| parents | a98f5bbbf5bc |
| children | a474fcb6d318 |
| files | lisp/ChangeLog lisp/ps-print.el |
| diffstat | 2 files changed, 28 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 26 23:16:48 2004 +0000 +++ b/lisp/ChangeLog Tue Jul 27 02:10:51 2004 +0000 @@ -42,12 +42,17 @@ 2004-07-22 Vinicius Jose Latorre <viniciusjl@ig.com.br> - * ps-print.el: Doc fix. Improve the DSC compliance of the generated - PostScript. Suggested by Michael Piotrowski <mxp@dynalabs.de>. + * ps-print.el: Doc fix. (ps-print-version): New version 6.6.5. (ps-printing-region): Doc fix. (ps-generate-string-list): Comment fix. - (ps-message-log-max, ps-begin-file): Code fix. + (ps-message-log-max): Code fix. + + +2004-07-22 Michael Piotrowski <mxp@dynalabs.de> (tiny change) + + * ps-print.el (ps-begin-file): Improve the DSC compliance of the + generated PostScript. 2004-07-22 Kim F. Storm <storm@cua.dk>
--- a/lisp/ps-print.el Mon Jul 26 23:16:48 2004 +0000 +++ b/lisp/ps-print.el Tue Jul 27 02:10:51 2004 +0000 @@ -5576,17 +5576,15 @@ (setq ps-background-all-pages (nreverse ps-background-all-pages) ps-background-pages (nreverse ps-background-pages)) - (ps-output "\n" ps-print-prologue-1) - - (ps-output "\n/printGlobalBackground{\n") + (ps-output "\n" ps-print-prologue-1 + "\n/printGlobalBackground{\n") (mapcar 'ps-output ps-background-all-pages) - (ps-output "}def\n/printLocalBackground{\n}def\n") - - (ps-output "\n%%EndProlog\n\n%%BeginSetup\n") - (ps-output + "}def\n/printLocalBackground{\n}def\n" + "\n%%EndProlog\n\n%%BeginSetup\n" "\n%%IncludeResource: font Times-Roman" - "\n%%IncludeResource: font Times-Italic\n%%IncludeResource: font " + "\n%%IncludeResource: font Times-Italic" + "\n%%IncludeResource: font " (mapconcat 'identity (ps-remove-duplicates (append (ps-fonts 'ps-font-for-text) @@ -5595,22 +5593,20 @@ (ps-font 'ps-font-for-footer 'normal) (ps-font 'ps-font-for-footer 'bold)))) "\n%%IncludeResource: font ") - "\n") - - ;; Header/line number fonts - (ps-output (format "/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont - ps-header-title-font-size-internal - (ps-font 'ps-font-for-header 'bold)) - (format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont - ps-header-font-size-internal - (ps-font 'ps-font-for-header 'normal)) - (format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont - (ps-get-font-size 'ps-line-number-font-size) - ps-line-number-font) - (format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont - ps-footer-font-size-internal - (ps-font 'ps-font-for-footer 'normal)) - "\n\n% ---- These lines must be kept together because... + ;; Header/line number fonts + (format "\n/h0 %s(%s)cvn DefFont\n" ; /h0 14/Helvetica-Bold DefFont + ps-header-title-font-size-internal + (ps-font 'ps-font-for-header 'bold)) + (format "/h1 %s(%s)cvn DefFont\n" ; /h1 12/Helvetica DefFont + ps-header-font-size-internal + (ps-font 'ps-font-for-header 'normal)) + (format "/L0 %s(%s)cvn DefFont\n" ; /L0 6/Times-Italic DefFont + (ps-get-font-size 'ps-line-number-font-size) + ps-line-number-font) + (format "/H0 %s(%s)cvn DefFont\n" ; /H0 12/Helvetica DefFont + ps-footer-font-size-internal + (ps-font 'ps-font-for-footer 'normal)) + "\n\n% ---- These lines must be kept together because... /h0 F /HeaderTitleLineHeight FontHeight def