mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(current-language-environment):

Browse Source 
Provide :link, :type (choices) and appropriate :get.
This commit is contained in:
Dave Love 1999-01-27 20:22:42 +00:00
parent d4308a4dc1
commit 94d04df6d2
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1124,8 +1124,21 @@ This hook is mainly used for canceling the effect of
(error "Bogus calling sequence"))))
(defcustom current-language-environment "English"
"The last language environment specified with `set-language-environment'."
"The last language environment specified with `set-language-environment'.
This variable should only be set with Customize, which is equivalent
to using `set-language-environment'."
:link '(custom-manual "(emacs)Language Environments")
:set (lambda (symbol value) (set-language-environment value))
:get (lambda (x)
(or (car-safe (assoc-ignore-case
(if (symbolp current-language-environment)
(symbol-name current-language-environment)
current-language-environment)
language-info-alist))
"English"))
:type (cons 'choice (mapcar (lambda (lang)
(list 'const (car lang)))
language-info-alist))
:initialize 'custom-initialize-default
:group 'mule
:type 'string)