; (dom-print): Use HTML entities for reserved characters.

diff --git a/lisp/dom.el b/lisp/dom.el
index f7043ba825220feb2ac6fd330265917f7ec9058d..b329379fdc34cc70b7337a7554264c2e16ebe129 100644 (file)
--- a/lisp/dom.el
+++ b/lisp/dom.el
@@ -288,7 +288,7 @@ If XML, generate XML instead of HTML."
        (insert ">")
         (dolist (child children)
          (if (stringp child)
-             (insert child)
+             (insert (url-insert-entities-in-string child))
            (setq non-text t)
            (when pretty
               (insert "\n" (make-string (+ column 2) ?\s)))