From 8861c59398b6497a2a49b166467a5a56cae16c80 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 20 Mar 1998 06:29:54 +0000 Subject: [PATCH] (set-language-environment): Doc fix. (current-language-environment): Use defcustom. (default-input-method): Specify :type. --- lisp/international/mule-cmds.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 1b6b8fc5072..509672cee6d 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -525,10 +525,11 @@ If nil, that means no input method is activated now.") (put 'current-input-method-title 'permanent-local t) (defcustom default-input-method nil - "*Default input method for multilingual text. + "*Default input method for multilingual text (a string). This is the input method activated automatically by the command `toggle-input-method' (\\[toggle-input-method])." - :group 'mule) + :group 'mule + :type 'string) (defvar input-method-history nil "History list for some commands that read input methods.") @@ -807,13 +808,19 @@ This hook is mainly used for cancelling the effect of (set-language-environment language-name) (error "Bogus calling sequence")))) -(defvar current-language-environment "English" - "The last language environment specified with `set-language-environment'.") +(defcustom current-language-environment "English" + "The last language environment specified with `set-language-environment'." + :set 'set-language-environment + :initialize 'custom-initialize-default + :group 'mule + :type 'string) (defun set-language-environment (language-name) "Set up multi-lingual environment for using LANGUAGE-NAME. This sets the coding system priority and the default input method -and sometimes other things." +and sometimes other things. LANGUAGE-NAME should be a string +which is the name of a language environment. For example, \"Latin-1\" +specifies the character set for the major languages of Western Europe." (interactive (list (read-language-name 'setup-function "Set language environment (default, English): "))) -- 2.39.5