[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/13 22:29:00

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : ispell.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16162&r2=1.16163
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.256&r2=1.257

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16162
retrieving revision 1.16163
diff -u -b -r1.16162 -r1.16163
--- ChangeLog   13 Sep 2009 21:32:58 -0000      1.16162
+++ ChangeLog   13 Sep 2009 22:28:57 -0000      1.16163
@@ -1,3 +1,8 @@
+2009-09-13  Stefan Monnier  <address@hidden>
+
+       * textmodes/ispell.el (ispell-command-loop): Improve last fix, using
+       the new read-key function.
+
 2009-09-13  Chong Yidong  <address@hidden>
 
        * term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.256
retrieving revision 1.257
diff -u -b -r1.256 -r1.257
--- textmodes/ispell.el 13 Sep 2009 20:34:22 -0000      1.256
+++ textmodes/ispell.el 13 Sep 2009 22:29:00 -0000      1.257
@@ -1952,10 +1952,7 @@
                    ;; 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)