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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57f989ab7f7691e6d179e8c552a9833715457104..6f899e03a4b4eb92685d530b5a8567fed68c7fcf 100644 (file)
--- 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 8d0182e9033e0cb130d01e10253fb0330c2c21fb..d6a0bc74b458c0d6de00a9095a0263c90e6f879f 100644 (file)
--- 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)