From b387a6197ca86d8e79e7c14e8b3b3bbe1d228a48 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Sun, 15 Dec 2002 16:11:47 +0000
Subject: [PATCH] (current-language-environment): Set custom-type after
 language files are loaded.

---
 lisp/loadup.el | 5 +++++
 1 file changed, 5 insertions(+)

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")
 
-- 
2.39.5