diff options
| -rw-r--r-- | lisp/xml.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/xml.el b/lisp/xml.el index 20c582f06e8..62a95461446 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -845,6 +845,8 @@ The first line is indented with the optional INDENT-STRING." (defalias 'xml-print 'xml-debug-print) (defun xml-escape-string (string) + "Return the string with entity substitutions made from +xml-entity-alist." (mapconcat (lambda (byte) (let ((char (char-to-string byte))) (if (rassoc char xml-entity-alist) |