diff options
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 3d824de6b4..ed4e23497d 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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'. |