mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Backport:

(cherry picked from commit 3cedbdcc71)
This commit is contained in:
Łukasz Stelmach 2016-02-23 14:54:30 +11:00 • committed by Lars Ingebrigtsen
parent 6620944f83
commit 1af5e6e0ac
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ps-print.el
View file

@ -4759,7 +4759,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.
@ -4775,7 +4779,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))))