# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 872471201 0
# Node ID 1c0ecc266e3822f2f8eb1c7ea5cc55cb751f2cdd
# Parent  0f690a5476fe9947ff95c71c35c3d544e31be596
(quail-terminate-translation): Doc-string
fixed.  Set quail-prefix-arg to nil after handling it.
(quail-self-insert-command): Set overriding-terminal-local-map to
nil when thown for `quail-tag' by value nil.

diff -r 0f690a5476fe -r 1c0ecc266e38 lisp/international/quail.el
--- a/lisp/international/quail.el	Mon Aug 25 01:05:53 1997 +0000
+++ b/lisp/international/quail.el	Mon Aug 25 01:06:41 1997 +0000
@@ -947,9 +947,7 @@
 		     (overlay-end quail-overlay))))
 
 (defun quail-terminate-translation ()
-  "Terminate the translation of the current key.
-Optional arg SUPPRESS-INSERT-CHUNK-HOOK if non-nil means don't run hooks
-in `input-method-after-insert-chunk-hook' (which see)."
+  "Terminate the translation of the current key."
   (let ((start (overlay-start quail-overlay)))
     (if (and start
 	     (< start (overlay-end quail-overlay)))
@@ -963,6 +961,7 @@
 	  (quail-delete-region)
 	  (setq last-command-char (car seq))
 	  (self-insert-command (or quail-prefix-arg 1))
+	  (setq quail-prefix-arg nil)
 	  (setq seq (cdr seq))
 	  (while seq
 	    (setq last-command-char (car seq))
@@ -976,8 +975,8 @@
   (setq overriding-terminal-local-map
 	(quail-conversion-keymap))
   ;; Run this hook only when the current input method doesn't require
-  ;; conversion.  When it requires, the conversoin function should run
-  ;; this hook at a proper timing.
+  ;; conversion.  When conversion is required, the conversion function
+  ;; should run this hook at a proper timing.
   (unless (quail-conversion-keymap)
     (run-hooks 'input-method-after-insert-chunk-hook)))
 
@@ -1018,8 +1017,12 @@
   (interactive "*")
   (setq quail-current-key
 	(concat quail-current-key (char-to-string last-command-event)))
-  (catch 'quail-tag
-    (quail-update-translation (quail-translate-key))))
+  (unless (catch 'quail-tag
+	    (quail-update-translation (quail-translate-key))
+	    t)
+    ;; If someone throws for `quail-tag' by value nil, we exit from
+    ;; translation mode.
+    (setq overriding-terminal-local-map nil)))
 
 ;; Return the actual definition part of Quail map MAP.
 (defun quail-map-definition (map)