[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3cedbdc: Encode header strings before printing
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 3cedbdc: Encode header strings before printing |
Date: |
Tue, 23 Feb 2016 03:54:49 +0000 |
branch: master
commit 3cedbdcc71ebefc12bd20ec84f74251fe99ee7d0
Author: Ćukasz Stelmach <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/ps-print.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7333709..2ea0919 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3cedbdc: Encode header strings before printing,
Lars Ingebrigtsen <=