* textmodes/ispell.el (ispell-command-loop): Convert keys such as

kp-0 to ascii equivalents (Bug#4325).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc433fa36a3470c218b9f48905be08ebff904c5c..aa513b7d8234a141576dcf8fb4b3100703eab756 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index c5beda5554a3b4514780f976ee35dd941dd78512..aa707f5d9c6cc1d57bb2e4b8aae2c18c76aa1aae 100644 (file)
--- 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)