# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 900985360 0
# Node ID c3ab1de66dfcdcb5b6cad67347c7a90d4e8723fb
# Parent  19ed63955546dfdbd6413ec66f3ca31d10f2b15e
(quail-simple-translation-keymap): Typo
in doc-string fixed.
(quail-start-translation): Check start position of quail-overlay
before calling quail-overlay-region-events.
(quail-start-conversion): Likewise.

diff -r 19ed63955546 -r c3ab1de66dfc lisp/international/quail.el
--- a/lisp/international/quail.el	Tue Jul 21 01:42:40 1998 +0000
+++ b/lisp/international/quail.el	Tue Jul 21 01:42:40 1998 +0000
@@ -282,7 +282,7 @@
       (define-key map [escape] meta-map))
     map)
   "Keymap used while processing translation in simple Quail modes.
-A few especially complex input methods use `quail--translation-keymap' instead.
+A few especially complex input methods use `quail-translation-keymap' instead.
 This map is activated while translation region is active.")
 
 (defconst quail-conversion-keymap
@@ -917,9 +917,10 @@
 	      ;; Let's return the event(s) to the caller.
 	      (setq generated-events events
 		    quail-translating nil))))
-	(setq generated-events
-	      (append (quail-overlay-region-events quail-overlay)
-		      generated-events))
+	(if (overlay-start quail-overlay)
+	    (setq generated-events
+		  (append (quail-overlay-region-events quail-overlay)
+			  generated-events)))
 	generated-events)
 
     ;; Since KEY doesn't start any translation, just return it.
@@ -964,9 +965,10 @@
 	      ;; Let's return the event(s) to the caller.
 	      (setq generated-events events
 		    quail-converting nil))))
-	(setq generated-events
-	      (append (quail-overlay-region-events quail-conv-overlay)
-		      generated-events))
+	(if (overlay-start quail-conv-overlay)
+	    (setq generated-events
+		  (append (quail-overlay-region-events quail-conv-overlay)
+			  generated-events)))
 	generated-events)
 
     ;; Since KEY doesn't start any translation, just return it.