From: Kenichi Handa <handa@m17n.org>
Date: Tue, 22 Feb 2005 06:18:38 +0000 (+0000)
Subject: (ps-header-footer-string): Return a list of header
X-Git-Tag: ttn-vms-21-2-B4~2165
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b77ba60f8cba4184abd40c951f2c0efaf9e44e76;p=emacs.git

(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 214a19560a4..d8c8f1f6ded 100644
--- 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.