]> git.eshelyaron.com Git - emacs.git/commitdiff
(quail-simple-translation-keymap): Typo
authorKenichi Handa <handa@m17n.org>
Tue, 21 Jul 1998 01:42:40 +0000 (01:42 +0000)
committerKenichi Handa <handa@m17n.org>
Tue, 21 Jul 1998 01:42:40 +0000 (01:42 +0000)
in doc-string fixed.
(quail-start-translation): Check start position of quail-overlay
before calling quail-overlay-region-events.
(quail-start-conversion): Likewise.

lisp/international/quail.el

index d088ab94223947f7b39ba7cabf5e40f783b6a7d9..6fbd83241852b4b0aa131d120d391e7cc489c7fd 100644 (file)
@@ -282,7 +282,7 @@ This map is activated while translation region is active.")
       (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 @@ The returned value is a Quail map specific to KEY."
              ;; 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 @@ The returned value is a Quail map specific to KEY."
              ;; 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.