From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 6 May 1995 02:18:20 +0000 (+0000)
Subject: (ispell-region): If position not visible, (sit-for 0).
X-Git-Tag: emacs-19.34~4143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a594e0e1211b16571e250b94c98713eeef02bc8c;p=emacs.git

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

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 4214c667af9..0a3b3201f04 100644
--- 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