# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1097042634 0
# Node ID 8e110e726b85ddaed4ad4351c64eb0f85c5bb79b
# Parent  f024640dc5e428b8d73d421a5307786ca3f79b67
(xml-parse-dtd): Fix `error' call.

diff -r f024640dc5e4 -r 8e110e726b85 lisp/xml.el
--- a/lisp/xml.el	Wed Oct 06 03:45:06 2004 +0000
+++ b/lisp/xml.el	Wed Oct 06 06:03:54 2004 +0000
@@ -598,8 +598,8 @@
 	      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)