# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099563744 0
# Node ID d4af4d8d512bd9a38df7e4881ece4d0087e9ed9e
# Parent  10358c7d410bc31ce8842d7657fe5deb6d1c541a
(ispell-word): Don't alter args; set them only thru `interactive' spec.

diff -r 10358c7d410b -r d4af4d8d512b lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Thu Nov 04 10:20:35 2004 +0000
+++ b/lisp/textmodes/ispell.el	Thu Nov 04 10:22:24 2004 +0000
@@ -1410,12 +1410,9 @@
 \(\"word\" arg\)  word is hand entered.
 quit          spell session exited."
 
-  (interactive (list nil nil current-prefix-arg))
+  (interactive (list ispell-following-word ispell-quietly current-prefix-arg))
   (if continue
       (ispell-continue)
-    (if (interactive-p)
-	(setq following ispell-following-word
-	      quietly ispell-quietly))
     (ispell-accept-buffer-local-defs)	; use the correct dictionary
     (let ((cursor-location (point))	; retain cursor location
 	  (word (ispell-get-word following))