[Emacs-diffs] Changes to emacs/lisp/xml.el

[Mark A . Hershberger]

Index: emacs/lisp/xml.el
diff -c emacs/lisp/xml.el:1.44 emacs/lisp/xml.el:1.45
*** emacs/lisp/xml.el:1.44      Mon Dec 13 19:37:32 2004
--- emacs/lisp/xml.el   Thu May 26 14:35:46 2005
***************
*** 84,89 ****
--- 84,92 ----
  ;;**
  ;;*******************************************************************
  
+ (defconst xml-undefined-entity "?"
+   "What to substitute for undefined entities")
+ 
  (defvar xml-entity-alist
    '(("lt"   . "<")
      ("gt"   . ">")
***************
*** 745,753 ****
                    ((eq (length this-part) 0)
                     (error "XML: (Not Well-Formed) No entity given"))
                    (t
!                    (when xml-validating-parser
                         (error "XML: (Validity) Undefined entity `%s'"
!                               this-part))))))
  
        (cond ((null children)
               ;; FIXME: If we have an entity that expands into XML, this won't 
work.
--- 748,757 ----
                    ((eq (length this-part) 0)
                     (error "XML: (Not Well-Formed) No entity given"))
                    (t
!                    (if xml-validating-parser
                         (error "XML: (Validity) Undefined entity `%s'"
!                               this-part)
!                      xml-undefined-entity)))))
  
        (cond ((null children)
               ;; FIXME: If we have an entity that expands into XML, this won't 
work.