X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/33bb679af9e323408c8089f0b5675a54776d60d5..700afe62a4cbd9ecf24551ddc4747e6319fb51a2:/lisp/ps-print.el

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7333709c19..2ea0919c68 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -4761,7 +4761,11 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
    ;; Literal strings should be output as is -- the string must contain its own
    ;; PS string delimiters, '(' and ')', if necessary.
    ((stringp content)
-    (ps-output content))
+    (if (functionp ps-encode-header-string-function)
+        (dolist (elem (funcall ps-encode-header-string-function
+                               content fonttag))
+	  (ps-output elem))
+      (ps-output content)))
 
    ;; Functions are called -- they should return strings; they will be inserted
    ;; as strings and the PS string delimiters added.
@@ -4777,7 +4781,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
    ((and (symbolp content) (boundp content))
     (if (fboundp ps-encode-header-string-function)
 	(dolist (l (funcall ps-encode-header-string-function
-			     (symbol-value content) fonttag))
+                            (symbol-value content) fonttag))
 	  (ps-output-string l))
       (ps-output-string (symbol-value content))))