Mercurial > emacs
changeset 24204:a61e1da49f92
(current-language-environment):
Provide :link, :type (choices) and appropriate :get.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 27 Jan 1999 20:22:42 +0000 |
| parents | 06cb71bb7bc5 |
| children | da51e8d5c359 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Jan 27 10:12:43 1999 +0000 +++ b/lisp/international/mule-cmds.el Wed Jan 27 20:22:42 1999 +0000 @@ -1124,8 +1124,21 @@ (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)