Commit 7d0105e5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(ispell-command-loop): Improve last fix, using the new read-key function.

parent d22f7ffa
2009-09-13 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/ispell.el (ispell-command-loop): Improve last fix, using
the new read-key function.
2009-09-13 Chong Yidong <cyd@stupidchicken.com>
* term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment