Mercurial > emacs
comparison lisp/international/quail.el @ 22804:e422c56928d9
(quail-start-translation): Call
this-single-command-raw-keys instead of this-single-command-keys.
(quail-start-conversion): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 23 Jul 1998 05:48:49 +0000 |
| parents | 441f052f49f7 |
| children | 69bbe5cb5400 |
comparison
equal
deleted
inserted
replaced
| 22803:c52637c83ebf | 22804:e422c56928d9 |
|---|---|
| 901 quail-translating t | 901 quail-translating t |
| 902 unread-command-events (cons key unread-command-events)) | 902 unread-command-events (cons key unread-command-events)) |
| 903 (while quail-translating | 903 (while quail-translating |
| 904 (let* ((echo-keystrokes 0) | 904 (let* ((echo-keystrokes 0) |
| 905 (keyseq (read-key-sequence nil)) | 905 (keyseq (read-key-sequence nil)) |
| 906 (events (this-single-command-keys)) | 906 (events (this-single-command-raw-keys)) |
| 907 (cmd (lookup-key translation-keymap keyseq))) | 907 (cmd (lookup-key translation-keymap keyseq))) |
| 908 (if (commandp cmd) | 908 (if (commandp cmd) |
| 909 (progn | 909 (progn |
| 910 (setq last-command-event (aref events (1- (length events))) | 910 (setq last-command-event (aref events (1- (length events))) |
| 911 last-command this-command | 911 last-command this-command |
| 949 quail-current-str nil | 949 quail-current-str nil |
| 950 quail-translating t) | 950 quail-translating t) |
| 951 (quail-setup-overlays nil))) | 951 (quail-setup-overlays nil))) |
| 952 (let* ((echo-keystrokes 0) | 952 (let* ((echo-keystrokes 0) |
| 953 (keyseq (read-key-sequence nil)) | 953 (keyseq (read-key-sequence nil)) |
| 954 (events (this-single-command-keys)) | 954 (events (this-single-command-raw-keys)) |
| 955 (cmd (lookup-key conversion-keymap keyseq))) | 955 (cmd (lookup-key conversion-keymap keyseq))) |
| 956 (if (commandp cmd) | 956 (if (commandp cmd) |
| 957 (progn | 957 (progn |
| 958 (setq last-command-event (aref events (1- (length events))) | 958 (setq last-command-event (aref events (1- (length events))) |
| 959 last-command this-command | 959 last-command this-command |