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

[Mark A . Hershberger]

Index: emacs/lisp/xml.el
diff -c emacs/lisp/xml.el:1.40 emacs/lisp/xml.el:1.41
*** emacs/lisp/xml.el:1.40      Wed Dec  1 04:45:08 2004
--- emacs/lisp/xml.el   Thu Dec  2 06:53:43 2004
***************
*** 653,659 ****
                                                xml-validating-parser
                                                parse-ns))))))))
           (t
!           (error "XML: (Validity) Invalid DTD item")))))
        (if (looking-at "\\s-*]>")
          (goto-char (nth 1 (match-data)))))
      (nreverse dtd)))
--- 653,660 ----
                                                xml-validating-parser
                                                parse-ns))))))))
           (t
!           (when xml-validating-parser
!             (error "XML: (Validity) Invalid DTD item")))))
        (if (looking-at "\\s-*]>")
          (goto-char (nth 1 (match-data)))))
      (nreverse dtd)))
***************
*** 724,732 ****
                    (entity
                     (cdr entity))
                    ((eq (length this-part) 0)
!                    (error "XML: (Validity) No entity given"))
                    (t
!                    (if xml-validating-parser
                         (error "XML: (Validity) Undefined entity `%s'"
                                this-part))))))
  
--- 725,734 ----
                    (entity
                     (cdr entity))
                    ((eq (length this-part) 0)
!                    (when xml-validating-parser
!                      (error "XML: (Validity) No entity given")))
                    (t
!                    (when xml-validating-parser
                         (error "XML: (Validity) Undefined entity `%s'"
                                this-part))))))