From 35de62b82b851b47681776a8b626e369a71fe355 Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 11 Mar 2003 21:59:49 +0000
Subject: [PATCH] (xml-skip-dtd): Fix parsing of DOCTYPE.

---
 lisp/ChangeLog | 4 ++++
 lisp/xml.el    | 1 +
 2 files changed, 5 insertions(+)

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)
-- 
2.39.2