(ispell-region): If position not visible, (sit-for 0).

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 4214c667af94c4c18fa7b4a53e0d18ce4b36c2f4..0a3b3201f04b89a65eae884032623fe9758196db 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1774,6 +1774,8 @@ With prefix argument, set the default directory."
                                   (concat "Ispell misalignment: word "
                                           "`%s' point %d; please retry")
                                   (car poss) word-start))
+                              (if (not (pos-visible-in-window-p))
+                                  (sit-for 0))
                              (if ispell-keep-choices-win
                                  (setq replace
                                        (ispell-command-loop