From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 6 Oct 2004 06:04:41 +0000 (+0000)
Subject: (xml-parse-dtd): Fix `error' call.
X-Git-Tag: ttn-vms-21-2-B4~4703
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07f7e9aede707c188ec0e88ac3fade20bc3b4725;p=emacs.git

(xml-parse-dtd): Fix `error' call.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8023859204..b5cfa0640e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-06  John Paul Wallington  <jpw@gnu.org>
+
+	* xml.el (xml-parse-dtd): Fix `error' call.
+
 2004-10-05  Mark A. Hershberger  <mah@everybody.org>
 
 	* xml.el (xml-substitute-special): Return a single string instead
@@ -17,7 +21,6 @@
 	(Info-build-toc): Don't check for special Info file names.
 	Set main-file to nil if Info-find-file returns a symbol.
 
->>>>>>> 1.6421
 2004-10-05  Emilio C. Lopes  <eclig@gmx.net>:
 
 	* calendar/calendar.el (calendar-goto-iso-week): Add autoload.
diff --git a/lisp/xml.el b/lisp/xml.el
index dd6d5095bc2..f1d8cbb1f00 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -598,8 +598,8 @@ This follows the rule [28] in the XML specifications."
 	      nil)
 	     (t
 	      (if xml-validating-parser 
-		  error "XML: (Validity) Invalid element type in the DTD")))
-
+		  (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)