From 7e73ea3274378c7bd893cc60ad470815e052b88b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 13 Sep 2009 20:34:18 +0000 Subject: [PATCH] * textmodes/ispell.el (ispell-command-loop): Convert keys such as kp-0 to ascii equivalents (Bug#4325). --- lisp/ChangeLog | 5 +++++ lisp/textmodes/ispell.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc433fa36a3..aa513b7d823 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-13 Per Starbäck (tiny change) + + * textmodes/ispell.el (ispell-command-loop): Convert keys such as + kp-0 to ascii equivalents (Bug#4325). + 2009-09-13 Chong Yidong * progmodes/cperl-mode.el (cperl-init-faces): Revert last change. diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c5beda5554a..aa707f5d9c6 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1953,6 +1953,9 @@ Global `ispell-quit' set to start location to continue spell session." ;; 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) -- 2.39.2