(ispell-word): Don't alter args; set them only thru `interactive' spec.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index f0547d6d5961b8a4c66e8c558e725b080b61283e..d221d39180f0ddcf2ad196859d93b206ba2410d6 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1410,12 +1410,9 @@ nil           word is correct or spelling is accepted.
 \(\"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))