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

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

* textmodes/ispell.el (ispell-command-loop): Convert keys such as
kp-0 to ascii equivalents (Bug#4325).
7e73ea32 · Chong Yidong · 6a5ca7c8 · 7e73ea32 · 7e73ea32
Commit 7e73ea32 authored Sep 13, 2009 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/textmodes/ispell.el lisp/textmodes/ispell.el +3 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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
+++ 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)