diff options
author | Kenichi Handa <handa@m17n.org> | 1997-08-22 01:22:49 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-08-22 01:22:49 +0000 |
commit | 802b3b3ea7d98b9c18635324fef31b055812822f (patch) | |
tree | a68f46ea4e26938c84cf468ab1512b9af9b777b2 | |
parent | bd1ef37c20415e0e9d287fa59caa8f6b4bc2e21c (diff) | |
download | emacs-802b3b3ea7d98b9c18635324fef31b055812822f.tar.gz |
(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.el | 13 |
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)." (set-buffer quail-guidance-buf) (erase-buffer))) (setq overriding-terminal-local-map - (if (and (overlayp quail-conv-overlay) - (overlay-start quail-conv-overlay)) - (quail-conversion-keymap))) - (run-hooks 'input-method-after-insert-chunk-hook)) + (quail-conversion-keymap)) + ;; Run this hook only when the current input method doesn't require + ;; conversion. When it requires, the conversoin function should run + ;; this hook at a proper timing. + (unless (quail-conversion-keymap) + (run-hooks 'input-method-after-insert-chunk-hook))) (defun quail-select-current () "Select the current text shown in Quail translation region." @@ -1281,7 +1283,8 @@ Remaining args are for FUNC." "Do no conversion of the current conversion region of Quail." (interactive) (quail-delete-overlays) - (setq overriding-terminal-local-map nil)) + (setq overriding-terminal-local-map nil) + (run-hooks 'input-method-after-insert-chunk-hook)) ;; Guidance, Completion, and Help buffer handlers. |