From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 5 Jan 2024 15:40:44 +0000 (+0100)
Subject: ; (dom-print): Use HTML entities for reserved characters.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=259c0138623c352acc7bcd79a1fda42ec606a0cf;p=emacs.git

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

diff --git a/lisp/dom.el b/lisp/dom.el
index f7043ba8252..b329379fdc3 100644
--- 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)))