Mercurial > emacs
changeset 31284:599904d1058b
(quail-start-translation): Bind locally
last-command-event, last-command, and this-command.
(quail-start-conversion): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 30 Aug 2000 00:44:29 +0000 |
| parents | 27fcb36bcb2a |
| children | 9b67d19bfb68 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 6 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Wed Aug 30 00:44:08 2000 +0000 +++ b/lisp/international/quail.el Wed Aug 30 00:44:29 2000 +0000 @@ -1070,11 +1070,10 @@ (if (if key (and (commandp cmd) (not (eq cmd 'quail-other-command))) (eq cmd 'quail-self-insert-command)) - (progn + (let ((last-command-event (aref keyseq (1- (length keyseq)))) + (last-command this-command) + (this-command cmd)) (setq key t) - (setq last-command-event (aref keyseq (1- (length keyseq))) - last-command this-command - this-command cmd) (condition-case err (call-interactively cmd) (quail-error (message "%s" (cdr err)) (beep)))) @@ -1162,11 +1161,10 @@ nil nil t)) (cmd (lookup-key (quail-conversion-keymap) keyseq))) (if (if key (commandp cmd) (eq cmd 'quail-self-insert-command)) - (progn + (let ((last-command-event (aref keyseq (1- (length keyseq)))) + (last-command this-command) + (this-command cmd)) (setq key t) - (setq last-command-event (aref keyseq (1- (length keyseq))) - last-command this-command - this-command cmd) (condition-case err (call-interactively cmd) (quail-error (message "%s" (cdr err)) (beep)))