mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(set-locale-environment): Make it interactive; make arg optional.

Browse Source
This commit is contained in:
Richard M. Stallman 2001-11-04 23:56:21 +00:00
parent 0abeb60276
commit 758f07de25
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/international/mule-cmds.el
View File

@ -1867,25 +1867,29 @@ start of KEY, or nil if there is no match."
(setq alist (cdr alist))) (setq alist (cdr alist)))
(cdr element))) (cdr element)))
(defun set-locale-environment (locale-name) (defun set-locale-environment (&optional locale-name)
"Set up multi-lingual environment for using LOCALE-NAME. "Set up multi-lingual environment for using LOCALE-NAME.
This sets the coding system priority and the default input method This sets the language environment, the coding system priority,
and sometimes other things. LOCALE-NAME should be a string the default input method and sometimes other things.
LOCALE-NAME should be a string
which is the name of a locale supported by the system; which is the name of a locale supported by the system;
often it is of the form xx_XX.CODE, where xx is a language, often it is of the form xx_XX.CODE, where xx is a language,
XX is a country, and CODE specifies a character set and coding system. XX is a country, and CODE specifies a character set and coding system.
For example, the locale name \"ja_JP.EUC\" might name a locale For example, the locale name \"ja_JP.EUC\" might name a locale
for Japanese in Japan using the `japanese-iso-8bit' coding-system. for Japanese in Japan using the `japanese-iso-8bit' coding-system.
If LOCALE-NAME is nil, its value is taken from the environment. If LOCALE-NAME is nil, its value is taken from the environment
variables LC_ALL, LC_CTYLE and LANG (the first one that is set).
The locale names supported by your system can typically be found in a The locale names supported by your system can typically be found in a
directory named `/usr/share/locale' or `/usr/lib/locale'. LOCALE-NAME directory named `/usr/share/locale' or `/usr/lib/locale'. LOCALE-NAME
may be translated according to the table specified by will be translated according to the table specified by
`locale-translation-file-name'. `locale-translation-file-name'.
See also `locale-charset-language-names', `locale-language-names', See also `locale-charset-language-names', `locale-language-names',
`locale-preferred-coding-systems' and `locale-coding-system'." `locale-preferred-coding-systems' and `locale-coding-system'."
(interactive "sSet environment for locale: ")
;; Do this at runtime for the sake of binaries possibly transported ;; Do this at runtime for the sake of binaries possibly transported
;; to a system without X. ;; to a system without X.