diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-13 22:28:57 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-13 22:28:57 +0000 |
| commit | 7d0105e5735949bc5810732f0f707ae31bbe13db (patch) | |
| tree | f2be73beebeaf284ae865de8e039ededd43537d9 /lisp/textmodes/ispell.el | |
| parent | d22f7ffac59c38f78faf34df6bac0cb8efbf4794 (diff) | |
| download | emacs-7d0105e5735949bc5810732f0f707ae31bbe13db.tar.gz | |
(ispell-command-loop): Improve last fix, using the new read-key function.
Diffstat (limited to 'lisp/textmodes/ispell.el')
| -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 aa707f5d9c6..706e598200b 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1952,10 +1952,7 @@ Global `ispell-quit' set to start location to continue spell session." ;; event), stop ispell. As a special exception, ;; ignore mouse events occuring in the same frame. (while (and input-valid (not (characterp char))) - (setq char (read-event)) - ;; Convert kp-0 to ?0, etc. - (when (symbolp char) - (setq char (get char 'ascii-character))) + (setq char (read-key)) (setq input-valid (or (characterp char) (and (mouse-event-p char) |