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))