procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Encode header strings before printing

Browse source 
* 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
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ps-print.el
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.
@ -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))))