Mercurial > emacs

changeset 57937:d4af4d8d512b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-word): Don't alter args; set them only thru `interactive' spec.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Nov 2004 10:22:24 +0000
parents 10358c7d410b
children d54496881232
files lisp/textmodes/ispell.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))