Encode header strings before printing

* lisp/ps-print.el (ps-generate-header-line): Encode the
header strings to avoid problems with non-ASCII headers
(bug#22611).
This commit is contained in:
Łukasz Stelmach 2016-02-23 14:54:30 +11:00 committed by Lars Ingebrigtsen
parent dea946d1bc
commit 3cedbdcc71

View file

@ -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.