diff options
Diffstat (limited to 'lisp/nxml/xmltok.el')
| -rw-r--r-- | lisp/nxml/xmltok.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el index 58a2f16d586..f80a5fd2fa1 100644 --- a/lisp/nxml/xmltok.el +++ b/lisp/nxml/xmltok.el @@ -750,7 +750,8 @@ Return the type of the token." ;; Need do this after the goto-char because ;; marked error should just apply to <!-- (xmltok-add-error "First following `--' not followed by `>'") - 'not-well-formed))))) + (goto-char (point-max)) + 'comment))))) (defun xmltok-scan-attributes () (let ((recovering nil) |