diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-04 10:22:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-04 10:22:24 +0000 |
| commit | a259d74c68fe3a5ecc5d015968985668c219764d (patch) | |
| tree | e82eefb41488409e9ecb8915656d5ed18126aedb /lisp/textmodes | |
| parent | 5a2045cea776b8dc66111d01740601aa9b3b692c (diff) | |
| download | emacs-a259d74c68fe3a5ecc5d015968985668c219764d.tar.gz | |
(ispell-word): Don't alter args; set them only thru `interactive' spec.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index f0547d6d596..d221d39180f 100644 --- 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)) |