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)))