# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1039642154 0
# Node ID 3928ea1dee22053f4a99cdc95c6dcacbb0f92943
# Parent  54fb272217f581b9631cfa6a54166946ebc8c414
(current-language-environment-custom-type): New fun.
(set-language-info): Use it.
(current-language-environment): Fix custom type.

diff -r 54fb272217f5 -r 3928ea1dee22 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Dec 11 21:21:17 2002 +0000
+++ b/lisp/international/mule-cmds.el	Wed Dec 11 21:29:14 2002 +0000
@@ -985,7 +985,9 @@
 	(progn
 	  (setq key-slot (list key))
 	  (setcdr lang-slot (cons key-slot (cdr lang-slot)))))
-    (setcdr key-slot (purecopy info))))
+    (setcdr key-slot (purecopy info))
+    (put 'current-language-environment 'custom-type
+	 (current-language-environment-custom-type))))
 
 (defun set-language-info-alist (lang-env alist &optional parents)
   "Store ALIST as the definition of language environment LANG-ENV.
@@ -1485,6 +1487,13 @@
 	  (customize-mark-as-set 'current-language-environment))
       (error "Bogus calling sequence"))))
 
+(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)))
+
 (defcustom current-language-environment "English"
   "The last language environment specified with `set-language-environment'.
 This variable should be set only with \\[customize], which is equivalent
@@ -1498,9 +1507,8 @@
 			  current-language-environment)
 			language-info-alist))
 	     "English"))
-  :type (cons 'choice (mapcar (lambda (lang)
-				(list 'const (car lang)))
-			      language-info-alist))
+  ;; a better custom type will be set with `set-language-info'.
+  :type 'string
   :initialize 'custom-initialize-default
   :group 'mule)