From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 11 Mar 2003 21:59:49 +0000 (+0000)
Subject: (xml-skip-dtd): Fix parsing of DOCTYPE.
X-Git-Tag: ttn-vms-21-2-B4~10947
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35de62b82b851b47681776a8b626e369a71fe355;p=emacs.git

(xml-skip-dtd): Fix parsing of DOCTYPE.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57f989ab7f7..6f899e03a4b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-11  Mark A. Hershberger  <mah@everybody.org>
+
+	* xml.el (xml-skip-dtd): Fix parsing of DOCTYPE.
+
 2003-03-11  John Paul Wallington  <jpw@gnu.org>
 
 	* subr.el (posn-col-row): Heed frame parameter `line-spacing' and
diff --git a/lisp/xml.el b/lisp/xml.el
index 8d0182e9033..d6a0bc74b45 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -323,6 +323,7 @@ This follows the rule [28] in the XML specifications."
   (condition-case nil
       (progn
 	(forward-word 1)  ;; name of the document
+	(goto-char (- (re-search-forward "[[:space:]]") 1))
 	(goto-char (- (re-search-forward "[^[:space:]]") 1))
 	(if (looking-at "\\[")
 	    (re-search-forward "\\][[:space:]]*>" end)