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 |