Mercurial > emacs
comparison lisp/international/quail.el @ 39143:b73fe7fe3c9f
(quail-use-package, quail-inactivate)
(quail-activate): Mention the hooks these functions run in their
doc strings.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Wed, 05 Sep 2001 12:01:51 +0000 |
parents | 3fa2820b45e2 |
children | 589781f0ee38 |
comparison
equal
deleted
inserted
replaced
39142:449f9371ac14 | 39143:b73fe7fe3c9f |
---|---|
219 name)) | 219 name)) |
220 | 220 |
221 ;;;###autoload | 221 ;;;###autoload |
222 (defun quail-use-package (package-name &rest libraries) | 222 (defun quail-use-package (package-name &rest libraries) |
223 "Start using Quail package PACKAGE-NAME. | 223 "Start using Quail package PACKAGE-NAME. |
224 The remaining arguments are libraries to be loaded before using the package." | 224 The remaining arguments are libraries to be loaded before using the package. |
225 | |
226 This activates input method defined by PACKAGE-NAME by running | |
227 `quail-activate', which see." | |
225 (let ((package (quail-package package-name))) | 228 (let ((package (quail-package package-name))) |
226 (if (null package) | 229 (if (null package) |
227 ;; Perhaps we have not yet loaded necessary libraries. | 230 ;; Perhaps we have not yet loaded necessary libraries. |
228 (while libraries | 231 (while libraries |
229 (if (not (load (car libraries) t)) | 232 (if (not (load (car libraries) t)) |
527 (defun quail-kill-guidance-buf () | 530 (defun quail-kill-guidance-buf () |
528 (if (buffer-live-p quail-guidance-buf) | 531 (if (buffer-live-p quail-guidance-buf) |
529 (kill-buffer quail-guidance-buf))) | 532 (kill-buffer quail-guidance-buf))) |
530 | 533 |
531 (defun quail-inactivate () | 534 (defun quail-inactivate () |
532 "Inactivate Quail input method." | 535 "Inactivate Quail input method. |
536 | |
537 This function runs the normal hook `quail-inactivate-hook'." | |
533 (interactive) | 538 (interactive) |
534 (quail-activate -1)) | 539 (quail-activate -1)) |
535 | 540 |
536 (defun quail-activate (&optional arg) | 541 (defun quail-activate (&optional arg) |
537 "Activate Quail input method. | 542 "Activate Quail input method. |
538 With arg, activate Quail input method if and only if arg is positive. | 543 With arg, activate Quail input method if and only if arg is positive. |
544 | |
545 This function runs `quail-activate-hook' if it activates the input | |
546 method, `quail-inactivate-hook' if it deactivates it. | |
539 | 547 |
540 While this input method is active, the variable | 548 While this input method is active, the variable |
541 `input-method-function' is bound to the function `quail-input-method'." | 549 `input-method-function' is bound to the function `quail-input-method'." |
542 (if (and arg | 550 (if (and arg |
543 (< (prefix-numeric-value arg) 0)) | 551 (< (prefix-numeric-value arg) 0)) |