From 5a911ab598c7b67618c00956f0aeef32b84ccb0f Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Thu, 12 Dec 2002 00:27:36 +0000 Subject: [PATCH] (current-language-environment-custom-type): Return a sorted list. --- lisp/international/mule-cmds.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 3d824de6b46..ed4e23497d1 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'. -- 2.39.2