From 47a97a6db31119476194b4bb9f32d1891a3a2d1f Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Tue, 27 Jul 2004 02:10:51 +0000 Subject: [PATCH] Tiny change. --- lisp/ChangeLog | 11 ++++++++--- lisp/ps-print.el | 44 ++++++++++++++++++++------------------------ 2 files changed, 28 insertions(+), 27 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 57ee67c60b5..4f1d0859f65 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -42,12 +42,17 @@ 2004-07-22 Vinicius Jose Latorre - * ps-print.el: Doc fix. Improve the DSC compliance of the generated - PostScript. Suggested by Michael Piotrowski . + * 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 (tiny change) + + * ps-print.el (ps-begin-file): Improve the DSC compliance of the + generated PostScript. 2004-07-22 Kim F. Storm diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 9dca7986e7c..78a558baebe 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -5576,17 +5576,15 @@ XSTART YSTART are the relative position for the first page in a sheet.") (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 @@ XSTART YSTART are the relative position for the first page in a sheet.") (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 -- 2.39.2