Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 104997:7a6d07def086
* textmodes/ispell.el (ispell-command-loop): Convert keys such as
kp-0 to ascii equivalents (Bug#4325).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 13 Sep 2009 20:34:18 +0000 |
parents | e8247765661a |
children | 77633f71fa50 |
comparison
equal
deleted
inserted
replaced
104996:30eb515b7bda | 104997:7a6d07def086 |
---|---|
1951 ;; non-character event (such as a frame switch | 1951 ;; non-character event (such as a frame switch |
1952 ;; event), stop ispell. As a special exception, | 1952 ;; event), stop ispell. As a special exception, |
1953 ;; ignore mouse events occuring in the same frame. | 1953 ;; ignore mouse events occuring in the same frame. |
1954 (while (and input-valid (not (characterp char))) | 1954 (while (and input-valid (not (characterp char))) |
1955 (setq char (read-event)) | 1955 (setq char (read-event)) |
1956 ;; Convert kp-0 to ?0, etc. | |
1957 (when (symbolp char) | |
1958 (setq char (get char 'ascii-character))) | |
1956 (setq input-valid | 1959 (setq input-valid |
1957 (or (characterp char) | 1960 (or (characterp char) |
1958 (and (mouse-event-p char) | 1961 (and (mouse-event-p char) |
1959 (eq (selected-frame) | 1962 (eq (selected-frame) |
1960 (window-frame | 1963 (window-frame |