Mercurial > emacs
comparison lisp/international/quail.el @ 19453:e6134c179b4c
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 22 Aug 1997 01:22:49 +0000 |
| parents | 4492653b04e8 |
| children | 1c0ecc266e38 |
comparison
equal
deleted
inserted
replaced
| 19452:9cf9cae37598 | 19453:e6134c179b4c |
|---|---|
| 972 (if (buffer-live-p quail-guidance-buf) | 972 (if (buffer-live-p quail-guidance-buf) |
| 973 (save-excursion | 973 (save-excursion |
| 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." |
| 984 (interactive) | 986 (interactive) |
| 985 (quail-terminate-translation)) | 987 (quail-terminate-translation)) |
| 1279 | 1281 |
| 1280 (defun quail-no-conversion () | 1282 (defun quail-no-conversion () |
| 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 |
| 1288 ;; Make a new one-line frame for Quail guidance buffer. | 1291 ;; Make a new one-line frame for Quail guidance buffer. |
| 1289 (defun quail-make-guidance-frame (buf) | 1292 (defun quail-make-guidance-frame (buf) |