summaryrefslogtreecommitdiff
path: root/lisp/xml.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2003-03-11 21:59:49 +0000
committerJuanma Barranquero <lekktu@gmail.com>2003-03-11 21:59:49 +0000
commit35de62b82b851b47681776a8b626e369a71fe355 (patch)
tree7aeae52a74b3e303c758303a971d1574c0fb6281 /lisp/xml.el
parentb51ee1312d32e5d7644e9af44ac8f2add5b45c95 (diff)
downloademacs-35de62b82b851b47681776a8b626e369a71fe355.tar.gz
(xml-skip-dtd): Fix parsing of DOCTYPE.
Diffstat (limited to 'lisp/xml.el')
-rw-r--r--lisp/xml.el1
1 files changed, 1 insertions, 0 deletions
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)