From 94d04df6d21b3fdc694a753e5903f8c33ca710df Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 27 Jan 1999 20:22:42 +0000 Subject: [PATCH] (current-language-environment): Provide :link, :type (choices) and appropriate :get. --- lisp/international/mule-cmds.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) 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) -- 2.39.2