From f6b7af4e1e9fc17257c52633ee0d86abd4761a74 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 May 1996 20:12:44 +0000 Subject: (ispell-region): Handle ispell-skip-sgml properly with an re-search. --- lisp/textmodes/ispell.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/textmodes/ispell.el') 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) -- cgit v1.2.1