lisp/international/mule-cmds.el

67 (defvar setup-language-environment-map
74   (list 'menu-item  "Set Language Environment" setup-language-environment-map))
175 (define-key setup-language-environment-map
176   [Default] '(menu-item "Default" setup-specified-language-environment))
320       (message "")
407 	(message "Highest priority is set to %s (base of %s)"
629       (message "All following characters are encodable by %s" coding-system))
742 e.g., for sending an email message.\n ")
1037 (defun select-message-coding-system ()
1038   "Return a coding system to encode the outgoing message of the current buffer.
1090   setup-function     value is a function to call to switch to this
1204 	(setup-map setup-language-environment-map))
1224 	    (setq map (lookup-key setup-map (vector parent-symbol)))
1227 		  (setq map (intern (format "setup-%s-environment-map"
1230 		  (define-key-after setup-map (vector parent-symbol)
1232 	    (setq setup-map (symbol-value map))
1240     (define-key-after setup-map (vector (intern lang-env))
1241       (cons lang-env 'setup-specified-language-environment) t)
1453 	  (run-hooks 'input-method-activate-hook)
1468 	  (run-hooks 'input-method-inactivate-hook)
1542   (help-setup-xref (list #'describe-input-method
1557 	 (help-setup-xref (list #'describe-input-method input-method)
1572 	(message "No way to describe the current input method `%s'"
1634 (defvar input-method-activate-hook nil
1635   "Normal hook run just after an input method is activated.
1640 (defvar input-method-inactivate-hook nil
1641   "Normal hook run just after an input method is inactivated.
1646 (defvar input-method-after-insert-chunk-hook nil
1647   "Normal hook run just after an input method insert some chunk of text.")
1672 (defvar set-language-environment-hook nil
1673   "Normal hook run after some language environment is set.
1675 When you set some hook function here, that effect usually should not
1677 another function in `exit-language-environment-hook' (which see) to
1680 (defvar exit-language-environment-hook nil
1681   "Normal hook run after exiting from some language environment.
1682 When this hook is run, the variable `current-language-environment'
1685 This hook is mainly used for canceling the effect of
1686 `set-language-environment-hook' (which-see).")
1688 (put 'setup-specified-language-environment 'apropos-inhibit t)
1690 (defun setup-specified-language-environment ()
1846       ;; this session.  (The MS-DOS port doesn't use that setup, so it
1874 	(run-hooks 'exit-language-environment-hook)
1895   (let ((func (get-language-info language-name 'setup-function)))
1899   (run-hooks 'set-language-environment-hook)
1957   "Do unibyte/multibyte translation setup for language environment LANGUAGE-NAME."
2059     (help-setup-xref (list #'describe-language-environment language-name)
2400      ;; GB-2312, we setup the default coding system to gb2312.
2403      ;; BIG5, we setup the default coding system to big5.