[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c812223: Don't bug out in xml-escape-string if invalid characters
From: |
Lars Ingebrigtsen |
Subject: |
master c812223: Don't bug out in xml-escape-string if invalid characters aren't present |
Date: |
Mon, 25 May 2020 09:03:43 -0400 (EDT) |
branch: master
commit c812223c9fc2684d0edc9cb848cfa6d83c6fdb9a
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Don't bug out in xml-escape-string if invalid characters aren't present
* lisp/xml.el (xml-escape-string): Don't bug out if invalid
characters aren't present.
---
lisp/xml.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/xml.el b/lisp/xml.el
index 767cf04..10ef8e2 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -1032,7 +1032,8 @@ by https://www.w3.org/TR/xml/#charsets), signal an error
of type
(insert string)
(goto-char (point-min))
(when (re-search-forward
-
"[^\u0009\u000A\u000D\u0020-\uD7FF\uE000-\uFFFD\U00010000-\U0010FFFF]")
+
"[^\u0009\u000A\u000D\u0020-\uD7FF\uE000-\uFFFD\U00010000-\U0010FFFF]"
+ nil t)
(signal 'xml-invalid-character (list (char-before) (match-beginning 0))))
(dolist (substitution '(("&" . "&")
("<" . "<")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c812223: Don't bug out in xml-escape-string if invalid characters aren't present,
Lars Ingebrigtsen <=