Lines Matching +defs:describe +defs:function
64 (defvar describe-language-environment-map
84 (define-key-after mule-menu-keymap [describe-input-method]
85 '(menu-item "Describe Input Method" describe-input-method))
101 (define-key-after mule-menu-keymap [describe-language-environment]
103 describe-language-environment-map
106 (define-key-after mule-menu-keymap [describe-input-method]
107 '(menu-item "Describe Input Method..." describe-input-method
110 (define-key-after mule-menu-keymap [describe-coding-system]
111 '(menu-item "Describe Coding System..." describe-coding-system)
178 (define-key describe-language-environment-map
179 [Default] '(menu-item "Default" describe-specified-language-support))
380 systems set by this function will use that type of EOL conversion.
417 "If non-nil, a predicate function to sort coding systems.
422 The function `sort-coding-systems' use it.")
443 (func (function
490 (sort codings (function (lambda (x y)
641 "If non-nil, a function to control the behavior of coding system selection.
643 function `select-safe-coding-system' (which see). This variable
778 'help-function func1
786 'help-function func2
848 Optional 4th arg ACCEPT-DEFAULT-P, if non-nil, is a function to
899 (mapcar (function (lambda (x) (cons x (coding-system-base x))))
1035 (setq select-safe-coding-system-function 'select-safe-coding-system)
1056 (if (fboundp select-safe-coding-system-function)
1058 (funcall select-safe-coding-system-function
1060 (function (lambda (x)
1090 setup-function value is a function to call to switch to this
1092 exit-function value is a function to call to leave this
1203 (let ((describe-map describe-language-environment-map)
1212 (setq map (lookup-key describe-map (vector parent-symbol)))
1218 (setq map (intern (format "describe-%s-environment-map"
1221 (define-key-after describe-map (vector parent-symbol)
1223 (setq describe-map (symbol-value map))
1238 (define-key-after describe-map (vector (intern lang-env))
1239 (cons lang-env 'describe-specified-language-support) t)))
1258 (function (lambda (elm) (and (listp elm) (assq key elm)))))
1289 ;; See the function `register-input-method' for the meanings of the arguments.
1305 Each function is called with one arg, LEIM directory name.")
1333 :complete-function widget-string-complete
1338 (put 'input-method-function 'permanent-local t)
1345 (defvar inactivate-current-input-method-function nil
1348 This function is called with no argument.
1350 This function should never change the value of `current-input-method'.
1351 It is set to nil by the function `inactivate-input-method'.")
1352 (make-variable-buffer-local 'inactivate-current-input-method-function)
1353 (put 'inactivate-current-input-method-function 'permanent-local t)
1355 (defvar describe-current-input-method-function nil
1357 This function is called with no argument.")
1358 (make-variable-buffer-local 'describe-current-input-method-function)
1359 (put 'describe-current-input-method-function 'permanent-local t)
1365 See the function `register-input-method' for the meanings of the elements.")
1371 ACTIVATE-FUNC is a function to call to activate this method.
1377 This function is mainly used in the file \"leim-list.el\" which is
1384 string specified in this function takes precedence.)
1386 The commands `describe-input-method' and `list-input-methods' need
1466 (funcall inactivate-current-input-method-function)
1470 input-method-function nil
1477 If INPUT-METHOD is nil, this function turns off the input method, and
1535 (defun describe-input-method (input-method)
1542 (help-setup-xref (list #'describe-input-method
1547 (describe-current-input-method)
1553 (describe-current-input-method))
1557 (help-setup-xref (list #'describe-input-method input-method)
1565 (defun describe-current-input-method ()
1567 This is a subroutine for `describe-input-method'."
1569 (if (and (symbolp describe-current-input-method-function)
1570 (fboundp describe-current-input-method-function))
1571 (funcall describe-current-input-method-function)
1572 (message "No way to describe the current input method `%s'"
1675 When you set some hook function here, that effect usually should not
1677 another function in `exit-language-environment-hook' (which see) to
1706 to using the function `set-language-environment'."
1756 ;; This function formerly set default-enable-multibyte-characters to t,
1873 'exit-function)))
1895 (let ((func (get-language-info language-name 'setup-function)))
2025 (put 'describe-specified-language-support 'apropos-inhibit t)
2028 ;; charsets, and coding systems. This function is intended to be
2030 ;; [menu-bar mule describe-language-environment LANGUAGE]
2031 ;; and should not run it by `M-x describe-current-input-method-function'.
2032 (defun describe-specified-language-support ()
2041 (describe-language-environment language-name)))
2043 (defun describe-language-environment (language-name)
2059 (help-setup-xref (list #'describe-language-environment language-name)
2729 (function (lambda (x) (or (cdr (assq x iso-2022-control-alist))
2731 (function (lambda (x) (format "#x%02X" x))))