aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1998-07-21 01:42:40 +0000
committerKenichi Handa1998-07-21 01:42:40 +0000
commit348d1438c794b5c4712e6877b82c24cc21ef4b0a (patch)
tree0427f1a5c0a8f172c0471ba791d6e20756a74304
parent360fbb8e498da7bafa5a155cbb2df05b4c170716 (diff)
downloademacs-348d1438c794b5c4712e6877b82c24cc21ef4b0a.tar.gz
emacs-348d1438c794b5c4712e6877b82c24cc21ef4b0a.zip
(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.
-rw-r--r--lisp/international/quail.el16
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index d088ab94223..6fbd8324185 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -282,7 +282,7 @@ This map is activated while translation region is active.")
282 (define-key map [escape] meta-map)) 282 (define-key map [escape] meta-map))
283 map) 283 map)
284 "Keymap used while processing translation in simple Quail modes. 284 "Keymap used while processing translation in simple Quail modes.
285A few especially complex input methods use `quail--translation-keymap' instead. 285A few especially complex input methods use `quail-translation-keymap' instead.
286This map is activated while translation region is active.") 286This map is activated while translation region is active.")
287 287
288(defconst quail-conversion-keymap 288(defconst quail-conversion-keymap
@@ -917,9 +917,10 @@ The returned value is a Quail map specific to KEY."
917 ;; Let's return the event(s) to the caller. 917 ;; Let's return the event(s) to the caller.
918 (setq generated-events events 918 (setq generated-events events
919 quail-translating nil)))) 919 quail-translating nil))))
920 (setq generated-events 920 (if (overlay-start quail-overlay)
921 (append (quail-overlay-region-events quail-overlay) 921 (setq generated-events
922 generated-events)) 922 (append (quail-overlay-region-events quail-overlay)
923 generated-events)))
923 generated-events) 924 generated-events)
924 925
925 ;; Since KEY doesn't start any translation, just return it. 926 ;; Since KEY doesn't start any translation, just return it.
@@ -964,9 +965,10 @@ The returned value is a Quail map specific to KEY."
964 ;; Let's return the event(s) to the caller. 965 ;; Let's return the event(s) to the caller.
965 (setq generated-events events 966 (setq generated-events events
966 quail-converting nil)))) 967 quail-converting nil))))
967 (setq generated-events 968 (if (overlay-start quail-conv-overlay)
968 (append (quail-overlay-region-events quail-conv-overlay) 969 (setq generated-events
969 generated-events)) 970 (append (quail-overlay-region-events quail-conv-overlay)
971 generated-events)))
970 generated-events) 972 generated-events)
971 973
972 ;; Since KEY doesn't start any translation, just return it. 974 ;; Since KEY doesn't start any translation, just return it.