Tiny change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57ee67c60b569a69b178418fa2e4082cf5d7c346..4f1d0859f653dc4c86fd85a4eeea655f51d92c56 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 9dca7986e7c218a310e3e18796663dde9c9d2567..78a558baebe0c495954efbf11f6f4cf6667aa884 100644 (file)
--- 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