From: Dave Love <fx@gnu.org>
Date: Sun, 15 Dec 2002 16:11:47 +0000 (+0000)
Subject: (current-language-environment): Set custom-type after
X-Git-Tag: emacs-pretest-21.2.94~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b387a6197ca86d8e79e7c14e8b3b3bbe1d228a48;p=emacs.git

(current-language-environment): Set custom-type after
language files are loaded.
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 4e3da844e51..efd49e4573f 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -107,6 +107,11 @@
 (load "language/tibetan")
 (load "language/vietnamese")
 (load "language/misc-lang")
+;; Set the Custom type now the language list is actually defined.
+(put 'current-language-environment 'custom-type
+     (cons 'choice (mapcar (lambda (lang)
+			     (list 'const (car lang)))
+			   language-info-alist)))
 
 (load "international/ucs-tables")