[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 38738f6: Encode non-ASCII SVG texts
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 38738f6: Encode non-ASCII SVG texts |
Date: |
Wed, 18 Oct 2017 18:25:48 -0400 (EDT) |
branch: master
commit 38738f61bc16f5792220467730634598ac92f149
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Encode non-ASCII SVG texts
* lisp/svg.el (svg--encode-text): Encode non-ASCII texts.
---
lisp/svg.el | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/lisp/svg.el b/lisp/svg.el
index 6a0c49b..8639bf1 100644
--- a/lisp/svg.el
+++ b/lisp/svg.el
@@ -157,7 +157,21 @@ otherwise. IMAGE-TYPE should be a MIME image type, like
(dom-node
'text
`(,@(svg--arguments svg args))
- text)))
+ (svg--encode-text text))))
+
+(defun svg--encode-text (text)
+ ;; Apparently the SVG renderer needs to have all non-ASCII
+ ;; characters encoded.
+ (with-temp-buffer
+ (insert text)
+ (goto-char (point-min))
+ (while (not (eobp))
+ (let ((char (following-char)))
+ (if (<= char 128)
+ (forward-char 1)
+ (delete-char 1)
+ (insert "&#" (format "%d" char) ";"))))
+ (buffer-string)))
(defun svg--append (svg node)
(let ((old (and (dom-attr node 'id)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 38738f6: Encode non-ASCII SVG texts,
Lars Ingebrigtsen <=