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:
parent
dea946d1bc
commit
3cedbdcc71
1 changed files with 6 additions and 2 deletions
|
@ -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
|
;; Literal strings should be output as is -- the string must contain its own
|
||||||
;; PS string delimiters, '(' and ')', if necessary.
|
;; PS string delimiters, '(' and ')', if necessary.
|
||||||
((stringp content)
|
((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
|
;; Functions are called -- they should return strings; they will be inserted
|
||||||
;; as strings and the PS string delimiters added.
|
;; as strings and the PS string delimiters added.
|
||||||
|
|
Loading…
Add table
Reference in a new issue