diff options
| author | Kenichi Handa | 1997-08-22 01:22:49 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-08-22 01:22:49 +0000 |
| commit | 8b8f9e2868199235bc0ce5b0d4a19b9eeafca2ed (patch) | |
| tree | a15da2ab5d76493cc8205295bad76c9c6ef02e3e | |
| parent | 834503135c0817fa29c4d3355446e8868400afaf (diff) | |
| download | emacs-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.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)." | |||
| 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 | ||