Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57

Merge from emacs--cvs-trunk--0

Patches applied:

 * emacs--cvs-trunk--0  (patch 324-352)

   - Merge from gnus--rel--5.10
   - Update from CVS
   - etc/emacs-buffer.gdb: Remove RCS keywords

 * gnus--rel--5.10  (patch 70-79)

   - Update from CVS
   - Merge from emacs--cvs-trunk--0

1 files changed, 6 insertions, 2 deletions

diff --git a/lisp/xml.el b/lisp/xml.el
index daf5689c18b..f9527a276b1 100644
--- 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.