# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 967596269 0
# Node ID 599904d1058be1ef6217ec3d2cc968815c728e05
# Parent  27fcb36bcb2ab211bc239614bab0cbd929331669
(quail-start-translation): Bind locally
last-command-event, last-command, and this-command.
(quail-start-conversion): Likewise.

diff -r 27fcb36bcb2a -r 599904d1058b lisp/international/quail.el
--- 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)))