diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-05-31 20:12:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-05-31 20:12:44 +0000 |
| commit | f6b7af4e1e9fc17257c52633ee0d86abd4761a74 (patch) | |
| tree | 7ddcae3ba0b8361ecd33487fc7cc3296064fa621 | |
| parent | 82856819656f05d8d8b486f2c466efa37ea795af (diff) | |
| download | emacs-f6b7af4e1e9fc17257c52633ee0d86abd4761a74.tar.gz | |
(ispell-region): Handle ispell-skip-sgml properly with an re-search.
| -rw-r--r-- | lisp/textmodes/ispell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 95f870d8f6c..dfc034b0455 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1700,7 +1700,7 @@ With prefix argument, set the default directory." (re-search-forward ispell-tib-ref-beginning end t) (setq ref-type 'tib)) (and ispell-skip-sgml - (search-forward "[<&]" end t) + (re-search-forward "[<&]" end t) (setq ref-type 'sgml))) (if (or (and (eq 'tib ref-type) ; tib tag is 2 chars. (= (- (point) 2) start)) @@ -1714,7 +1714,7 @@ With prefix argument, set the default directory." (not (re-search-forward ispell-tib-ref-end reg-end t))) (and (eq 'sgml ref-type) - (not (search-forward "[>;]" reg-end t)))) + (not (re-search-forward "[>;]" reg-end t)))) (progn (ispell-pdict-save ispell-silently-savep) (ding) |