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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/09/13 20:34:23

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

Log message:
        * textmodes/ispell.el (ispell-command-loop): Convert keys such as
        kp-0 to ascii equivalents (Bug#4325).

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16157
retrieving revision 1.16158
diff -u -b -r1.16157 -r1.16158
--- ChangeLog   13 Sep 2009 17:09:23 -0000      1.16157
+++ ChangeLog   13 Sep 2009 20:34:18 -0000      1.16158
@@ -1,3 +1,8 @@
+2009-09-13  Per Starbäck <address@hidden>  (tiny change)
+
+       * textmodes/ispell.el (ispell-command-loop): Convert keys such as
+       kp-0 to ascii equivalents (Bug#4325).
+
 2009-09-13  Chong Yidong  <address@hidden>
 
        * progmodes/cperl-mode.el (cperl-init-faces): Revert last change.

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.255
retrieving revision 1.256
diff -u -b -r1.255 -r1.256
--- textmodes/ispell.el 29 Aug 2009 14:48:13 -0000      1.255
+++ textmodes/ispell.el 13 Sep 2009 20:34:22 -0000      1.256
@@ -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)