# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1039819300 0
# Node ID 81333325d8f75872ca1767385dde8b7367c7a3fd
# Parent  750e9e67d3e988f88e724bc71442e76be0728cc7
(current-language-environment): Set type according to
`language-info-alist' also here.

diff -r 750e9e67d3e9 -r 81333325d8f7 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Fri Dec 13 22:37:37 2002 +0000
+++ b/lisp/international/mule-cmds.el	Fri Dec 13 22:41:40 2002 +0000
@@ -1505,8 +1505,14 @@
 			  current-language-environment)
 			language-info-alist))
 	     "English"))
-  ;; a better custom type will be set with `set-language-info'.
-  :type 'string
+  ;; custom type will be updated with `set-language-info'.
+  :type (if 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))))))
+	  'string)
   :initialize 'custom-initialize-default
   :group 'mule)