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/xmltok.el | |
| parent | 52ef9375bb7116ff3252b5660047b39717a2168f (diff) | |
| download | emacs-eb22cb8cba2b017c28f7fcf6162f8431640a653a.tar.gz | |
Mario Lang <mlang at delysid.org>
(xmltok-forward): Simplify.
Diffstat (limited to 'lisp/nxml/xmltok.el')
| -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)) |