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 | 651939b595890a5f85bb876dc03a1038b0e66325 (patch) | |
| tree | 3f81de718ef19133b6f5a1ffad0e9e2c9cf12005 /lisp/textmodes | |
| parent | 846e8c10a08a1995639e0e383ac96a5047cedac7 (diff) | |
| download | emacs-651939b595890a5f85bb876dc03a1038b0e66325.tar.gz | |
(ispell-region): Handle ispell-skip-sgml properly with an re-search.
Diffstat (limited to 'lisp/textmodes')
| -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) |