Mercurial > emacs
changeset 105007:77633f71fa50
(ispell-command-loop): Improve last fix, using the new read-key function.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 13 Sep 2009 22:28:57 +0000 |
| parents | 8a5594d4bbea |
| children | b9b9c3b2718d |
| files | lisp/ChangeLog lisp/textmodes/ispell.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Sep 13 22:28:48 2009 +0000 +++ b/lisp/ChangeLog Sun Sep 13 22:28:57 2009 +0000 @@ -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
--- a/lisp/textmodes/ispell.el Sun Sep 13 22:28:48 2009 +0000 +++ b/lisp/textmodes/ispell.el Sun Sep 13 22:28:57 2009 +0000 @@ -1952,10 +1952,7 @@ ;; 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)