diff options
| author | Dave Love <fx@gnu.org> | 2002-12-15 16:11:47 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-12-15 16:11:47 +0000 |
| commit | b387a6197ca86d8e79e7c14e8b3b3bbe1d228a48 (patch) | |
| tree | 644a15a97d46e51c6203a6e062e96dfd5a9bae47 | |
| parent | a812117e22fd1bfe590ed357300e44fdd0498184 (diff) | |
| download | emacs-b387a6197ca86d8e79e7c14e8b3b3bbe1d228a48.tar.gz | |
(current-language-environment): Set custom-type after
language files are loaded.
| -rw-r--r-- | lisp/loadup.el | 5 |
1 files changed, 5 insertions, 0 deletions
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") |