changeset 50081:9431fa452e95

(xml-skip-dtd): Fix parsing of DOCTYPE.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 11 Mar 2003 21:57:46 +0000
parents 5ff2f3145fd1
children 3671823454f5
files lisp/xml.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/xml.el	Tue Mar 11 15:52:37 2003 +0000
+++ b/lisp/xml.el	Tue Mar 11 21:57:46 2003 +0000
@@ -323,6 +323,7 @@
   (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)