diff options
| author | Markus Rost <[email protected]> | 2002-12-12 00:27:36 +0000 |
|---|---|---|
| committer | Markus Rost <[email protected]> | 2002-12-12 00:27:36 +0000 |
| commit | 5a911ab598c7b67618c00956f0aeef32b84ccb0f (patch) | |
| tree | 293a0a205de6ad67bcba462bb07a33d20c347482 /lisp/international/mule-cmds.el | |
| parent | 649fc2c55b24de625125a9eb4adffe6d4748a29f (diff) | |
(current-language-environment-custom-type): Return a sorted list.
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'. |