mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2009-09-13 22:28:57 +00:00
parent d22f7ffac5
commit 7d0105e573
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

5
lisp/textmodes/ispell.el
View File

@ -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)