diff options
| author | Dave Love <fx@gnu.org> | 1999-01-27 20:22:42 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-01-27 20:22:42 +0000 |
| commit | 94d04df6d21b3fdc694a753e5903f8c33ca710df (patch) | |
| tree | 1425b00d57ec046e49479b7689bfe229ade56dcc /lisp | |
| parent | d4308a4dc15d289fa0cfbaf0b7944b761bc5069f (diff) | |
| download | emacs-94d04df6d21b3fdc694a753e5903f8c33ca710df.tar.gz | |
(current-language-environment):
Provide :link, :type (choices) and appropriate :get.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index cc72c2580c0..857c91e1f48 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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) |