aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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