(ispell-command-loop): Improve last fix, using the new read-key function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c10bd3a0cc4f3bc6e58af884d2aa44c3965b2563..328e68dc7fb524decb04e925c06e4ab0f8823e93 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * textmodes/ispell.el (ispell-command-loop): Improve last fix, using
+       the new read-key function.
+
 2009-09-13  Chong Yidong  <cyd@stupidchicken.com>
 
        * term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index aa707f5d9c6cc1d57bb2e4b8aae2c18c76aa1aae..706e598200bd080730323ef76e556652e5eced24 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1952,10 +1952,7 @@ Global `ispell-quit' set to start location to continue spell session."
                    ;; event), stop ispell.  As a special exception,
                    ;; 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 char (read-key))
                      (setq input-valid
                            (or (characterp char)
                                (and (mouse-event-p char)