Mercurial > emacs
changeset 104997:7a6d07def086
* textmodes/ispell.el (ispell-command-loop): Convert keys such as
kp-0 to ascii equivalents (Bug#4325).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 13 Sep 2009 20:34:18 +0000 |
| parents | 30eb515b7bda |
| children | 8d0a22733ade |
| files | lisp/ChangeLog lisp/textmodes/ispell.el |
| diffstat | 2 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Sep 13 19:41:52 2009 +0000 +++ b/lisp/ChangeLog Sun Sep 13 20:34:18 2009 +0000 @@ -1,3 +1,8 @@ +2009-09-13 Per Starbäck <starback@ling.uu.se> (tiny change) + + * textmodes/ispell.el (ispell-command-loop): Convert keys such as + kp-0 to ascii equivalents (Bug#4325). + 2009-09-13 Chong Yidong <cyd@stupidchicken.com> * progmodes/cperl-mode.el (cperl-init-faces): Revert last change.
--- a/lisp/textmodes/ispell.el Sun Sep 13 19:41:52 2009 +0000 +++ b/lisp/textmodes/ispell.el Sun Sep 13 20:34:18 2009 +0000 @@ -1953,6 +1953,9 @@ ;; 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 input-valid (or (characterp char) (and (mouse-event-p char)