emacs-diffs
[Top][All Lists]
Advanced

[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'"




reply via email to

[Prev in Thread] Current Thread [Next in Thread]