aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-08-22 01:22:49 +0000
committerKenichi Handa1997-08-22 01:22:49 +0000
commit8b8f9e2868199235bc0ce5b0d4a19b9eeafca2ed (patch)
treea15da2ab5d76493cc8205295bad76c9c6ef02e3e
parent834503135c0817fa29c4d3355446e8868400afaf (diff)
downloademacs-8b8f9e2868199235bc0ce5b0d4a19b9eeafca2ed.tar.gz
emacs-8b8f9e2868199235bc0ce5b0d4a19b9eeafca2ed.zip
(quail-terminate-translation): Run
input-method-after-insert-chunk-hook only when the current input method doesn't require conversion. (quail-no-conversion): Run input-method-after-insert-chunk-hook.
-rw-r--r--lisp/international/quail.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 05fe85bf0d6..d03974ecfa9 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -974,10 +974,12 @@ in `input-method-after-insert-chunk-hook' (which see)."
974 (set-buffer quail-guidance-buf) 974 (set-buffer quail-guidance-buf)
975 (erase-buffer))) 975 (erase-buffer)))
976 (setq overriding-terminal-local-map 976 (setq overriding-terminal-local-map
977 (if (and (overlayp quail-conv-overlay) 977 (quail-conversion-keymap))
978 (overlay-start quail-conv-overlay)) 978 ;; Run this hook only when the current input method doesn't require
979 (quail-conversion-keymap))) 979 ;; conversion. When it requires, the conversoin function should run
980 (run-hooks 'input-method-after-insert-chunk-hook)) 980 ;; this hook at a proper timing.
981 (unless (quail-conversion-keymap)
982 (run-hooks 'input-method-after-insert-chunk-hook)))
981 983
982(defun quail-select-current () 984(defun quail-select-current ()
983 "Select the current text shown in Quail translation region." 985 "Select the current text shown in Quail translation region."
@@ -1281,7 +1283,8 @@ Remaining args are for FUNC."
1281 "Do no conversion of the current conversion region of Quail." 1283 "Do no conversion of the current conversion region of Quail."
1282 (interactive) 1284 (interactive)
1283 (quail-delete-overlays) 1285 (quail-delete-overlays)
1284 (setq overriding-terminal-local-map nil)) 1286 (setq overriding-terminal-local-map nil)
1287 (run-hooks 'input-method-after-insert-chunk-hook))
1285 1288
1286;; Guidance, Completion, and Help buffer handlers. 1289;; Guidance, Completion, and Help buffer handlers.
1287 1290