2005-05-26 Mark A. Hershberger <mah@everybody.org>

	* xml.el (xml-substitute-special): Don't die for undefined xml
	entities.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 852de36e6b9510ac905fd7cbbde2c3eafb345ef9..dbd80ea6f38963eafde4bd268c4004c31f415d3b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-26  Mark A. Hershberger  <mah@everybody.org>
+
+       * xml.el (xml-substitute-special): Don't die for undefined xml
+       entities.
+
 2005-05-26  Lute Kamstra  <lute@gnu.org>
 
        * arc-mode.el (archive-mode):

diff --git a/lisp/xml.el b/lisp/xml.el
index daf5689c18bd64fd9caffbdc3d9a97b4fa0b4fa4..f9527a276b153e768112e28f7d3ce7b4e32fd934 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -84,6 +84,9 @@
 ;;**
 ;;*******************************************************************
 
+(defconst xml-undefined-entity "?"
+  "What to substitute for undefined entities")
+
 (defvar xml-entity-alist
   '(("lt"   . "<")
     ("gt"   . ">")
@@ -745,9 +748,10 @@ This follows the rule [28] in the XML specifications."
                    ((eq (length this-part) 0)
                     (error "XML: (Not Well-Formed) No entity given"))
                    (t
-                    (when xml-validating-parser
+                    (if xml-validating-parser
                         (error "XML: (Validity) Undefined entity `%s'"
-                               this-part))))))
+                               this-part)
+                      xml-undefined-entity)))))
 
        (cond ((null children)
               ;; FIXME: If we have an entity that expands into XML, this won't work.