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 |