diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-03-11 21:59:49 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-03-11 21:59:49 +0000 |
| commit | 35de62b82b851b47681776a8b626e369a71fe355 (patch) | |
| tree | 7aeae52a74b3e303c758303a971d1574c0fb6281 | |
| parent | b51ee1312d32e5d7644e9af44ac8f2add5b45c95 (diff) | |
| download | emacs-35de62b82b851b47681776a8b626e369a71fe355.tar.gz | |
(xml-skip-dtd): Fix parsing of DOCTYPE.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/xml.el | 1 |
2 files changed, 5 insertions, 0 deletions
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) |