# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1252874058 0
# Node ID 7a6d07def086eb36ff7ab3d31357141d80aebc70
# Parent  30eb515b7bda18ebc1600000af686ce69c3bdd47
* textmodes/ispell.el (ispell-command-loop): Convert keys such as
kp-0 to ascii equivalents (Bug#4325).

diff -r 30eb515b7bda -r 7a6d07def086 lisp/ChangeLog
--- 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.
diff -r 30eb515b7bda -r 7a6d07def086 lisp/textmodes/ispell.el
--- 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)