(ispell-region): Handle ispell-skip-sgml properly with an re-search.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 95f870d8f6cd448379e3b4fc64778e00af4bd64d..dfc034b04557fe2357fbfd912cb81dc7976d0336 100644 (file)
--- 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)