(ps-header-footer-string): Return a list of header

and footer strings.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 214a19560a4b3b5555ba4e89d7a383f63f907dae..d8c8f1f6dedf39b6e42e7bb899ecc56d9af49c71 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -4855,9 +4855,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
   (and ps-print-footer
        (setq ps-lf-cache (ps-generate-string-list ps-left-footer)
             ps-rf-cache (ps-generate-string-list ps-right-footer)))
-  (mapconcat 'identity
-            (append ps-lh-cache ps-rh-cache ps-lf-cache ps-rf-cache)
-            ""))
+  (append ps-lh-cache ps-rh-cache ps-lf-cache ps-rf-cache))
 
 ;; These functions insert the arrays that define the contents of the headers.