Commit 1169bd86 authored by Markus Rost's avatar Markus Rost
Browse files

(set-language-info): Update custom-type of

current-language-environment directly without a function call.
(current-language-environment-custom-type): Deleted.
parent 5a911ab5
2002-12-11 Markus Rost <>
2002-12-12 Markus Rost <>
* international/mule-cmds.el
(current-language-environment-custom-type): New fun.
(set-language-info): Use it.
(current-language-environment): Fix custom type.
* international/mule-cmds.el (current-language-environment): Fix
custom type.
(set-language-info): Update custom-type of
2002-12-11 Pavel Jan,Bm(Bk <>
......@@ -986,8 +986,13 @@ see `language-info-alist'."
(setq key-slot (list key))
(setcdr lang-slot (cons key-slot (cdr lang-slot)))))
(setcdr key-slot (purecopy info))
;; Update the custom-type of `current-language-environment'.
(put 'current-language-environment 'custom-type
(cons 'choice (mapcar
(lambda (lang)
(list 'const (car lang)))
(sort (copy-sequence language-info-alist)
(lambda (x y) (string< (car x) (car y)))))))))
(defun set-language-info-alist (lang-env alist &optional parents)
"Store ALIST as the definition of language environment LANG-ENV.
......@@ -1487,15 +1492,6 @@ This hook is mainly used for canceling the effect of
(customize-mark-as-set 'current-language-environment))
(error "Bogus calling sequence"))))
(defun current-language-environment-custom-type ()
"Return a custom type for `current-language-environment'.
This is based on `language-info-alist'."
(cons 'choice (mapcar
(lambda (lang)
(list 'const (car lang)))
(sort (copy-sequence language-info-alist)
(lambda (x y) (string< (car x) (car y)))))))
(defcustom current-language-environment "English"
"The last language environment specified with `set-language-environment'.
This variable should be set only with \\[customize], which is equivalent
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment