[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/xml.el
From: |
Mark A . Hershberger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/xml.el |
Date: |
Thu, 02 Dec 2004 02:25:25 -0500 |
Index: emacs/lisp/xml.el
diff -c emacs/lisp/xml.el:1.41 emacs/lisp/xml.el:1.42
*** emacs/lisp/xml.el:1.41 Thu Dec 2 06:53:43 2004
--- emacs/lisp/xml.el Thu Dec 2 07:19:03 2004
***************
*** 601,607 ****
(t
(if xml-validating-parser
(error "XML: (Validity) Invalid element type in the DTD"))))
!
;; rule [45]: the element declaration must be unique
(if (and (assoc element dtd)
xml-validating-parser)
--- 601,607 ----
(t
(if xml-validating-parser
(error "XML: (Validity) Invalid element type in the DTD"))))
!
;; rule [45]: the element declaration must be unique
(if (and (assoc element dtd)
xml-validating-parser)
***************
*** 654,660 ****
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)))
--- 654,660 ----
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)))
***************
*** 725,732 ****
(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'"
--- 725,731 ----
(entity
(cdr entity))
((eq (length this-part) 0)
! (error "XML: (Not Well-Formed) No entity given"))
(t
(when xml-validating-parser
(error "XML: (Validity) Undefined entity `%s'"