# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099563635 0
# Node ID 10358c7d410bc31ce8842d7657fe5deb6d1c541a
# Parent  93315f35a1d45375173f6170bbfb6b68e309c659
(flyspell-word): Don't alter FOLLOWING; set it only thru `interactive' spec.

diff -r 93315f35a1d4 -r 10358c7d410b lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Thu Nov 04 10:16:51 2004 +0000
+++ b/lisp/textmodes/flyspell.el	Thu Nov 04 10:20:35 2004 +0000
@@ -956,9 +956,7 @@
 ;*---------------------------------------------------------------------*/
 (defun flyspell-word (&optional following)
   "Spell check a word."
-  (interactive (list current-prefix-arg))
-  (if (interactive-p)
-      (setq following ispell-following-word))
+  (interactive (list ispell-following-word))
   (save-excursion
     ;; use the correct dictionary
     (flyspell-accept-buffer-local-defs)