From: Mark A. Hershberger <mah@everybody.org>
Date: Thu, 2 Dec 2004 07:19:03 +0000 (+0000)
Subject: Change existence of &; to not-well-formed.
X-Git-Tag: ttn-vms-21-2-B4~3473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27720433ac57a33a78b219107a01c20e65092814;p=emacs.git

Change existence of &; to not-well-formed.
---

diff --git a/lisp/xml.el b/lisp/xml.el
index cf1fd771d18..550ade8ab8f 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -601,7 +601,7 @@ This follows the rule [28] in the XML specifications."
 	     (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,7 +654,7 @@ This follows the rule [28] in the XML specifications."
 						parse-ns))))))))
 	   (t
 	    (when xml-validating-parser
-	      (error "XML: (Validity) Invalid DTD item")))))
+	      (error "XML: (Validity) Invalid DTD item"))))))
       (if (looking-at "\\s-*]>")
 	  (goto-char (nth 1 (match-data)))))
     (nreverse dtd)))
@@ -725,8 +725,7 @@ This follows the rule [28] in the XML specifications."
 		    (entity
 		     (cdr entity))
 		    ((eq (length this-part) 0)
-		     (when xml-validating-parser
-		       (error "XML: (Validity) No entity given")))
+		     (error "XML: (Not Well-Formed) No entity given"))
 		    (t
 		     (when xml-validating-parser
 			 (error "XML: (Validity) Undefined entity `%s'"