# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1128916977 0
# Node ID e51817a5ce6617046db35377e78cfc715803dea2
# Parent  9b8310a947006720410f265984770cb9f0d3f3be
(flyspell-check-word-p):
If unread-command-events is non-empty, don't call sit-for.

diff -r 9b8310a94700 -r e51817a5ce66 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Mon Oct 10 03:25:34 2005 +0000
+++ b/lisp/textmodes/flyspell.el	Mon Oct 10 04:02:57 2005 +0000
@@ -772,7 +772,8 @@
      ((get this-command 'flyspell-delayed)
       ;; the current command is not delayed, that
       ;; is that we must check the word now
-      (sit-for flyspell-delay))
+      (and (not unread-command-events)
+	   (sit-for flyspell-delay)))
      (t t)))
    (t t)))