diff options
author | Glenn Morris <rgm@gnu.org> | 2008-10-03 07:43:58 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2008-10-03 07:43:58 +0000 |
commit | eb22cb8cba2b017c28f7fcf6162f8431640a653a (patch) | |
tree | 053f2b06bda89d3ae0a9a7c60ce60cca509f21a6 /lisp/nxml | |
parent | 52ef9375bb7116ff3252b5660047b39717a2168f (diff) | |
download | emacs-eb22cb8cba2b017c28f7fcf6162f8431640a653a.tar.gz |
Mario Lang <mlang at delysid.org>
(xmltok-forward): Simplify.
Diffstat (limited to 'lisp/nxml')
-rw-r--r-- | lisp/nxml/xmltok.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el index 138d8e74a6b..fa17bf5c759 100644 --- a/lisp/nxml/xmltok.el +++ b/lisp/nxml/xmltok.el @@ -315,16 +315,14 @@ and VALUE-END, otherwise a STRING giving the value." (cond ((> space-count 0) (setq xmltok-type 'space)) (t - (goto-char (1+ (point))) + (forward-char 1) (xmltok-scan-after-lt)))) ((eq ch ?\&) (cond ((> space-count 0) (setq xmltok-type 'space)) (t - (goto-char (1+ (point))) - (xmltok-scan-after-amp - (lambda (start end) - (xmltok-handle-entity start end)))))) + (forward-char 1) + (xmltok-scan-after-amp 'xmltok-handle-entity)))) ((re-search-forward "[<&]\\|\\(]]>\\)" nil t) (cond ((not (match-beginning 1)) (goto-char (match-beginning 0)) |