mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(current-language-environment-custom-type): Return a sorted list.

Browse Source
This commit is contained in:
Markus Rost 2002-12-12 00:27:36 +00:00
parent 649fc2c55b
commit 5a911ab598
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1490,9 +1490,11 @@ This hook is mainly used for canceling the effect of
(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)))
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'.