Commit 990a4108 authored by Markus Rost's avatar Markus Rost
Browse files

(current-language-environment): Set type according to

`language-info-alist' also here.
parent 37bf89ab
2002-12-13 Markus Rost <rost@math.ohio-state.edu>
* international/mule-cmds.el (current-language-environment): Set
type according to `language-info-alist' also here.
* progmodes/compile.el (compilation-menu-map): Use
`kill-compilation' to stop compilation.
2002-12-13 Kenichi Handa <handa@m17n.org>
 
* language/european.el (encode-mac-roman): Fix last change.
......@@ -15,7 +23,6 @@
* international/subst-big5.el, international/subst-gb2312.el:
* international/subst-jis.el, international/subst-ksc.el: New.
* custom.el (defcustom, custom-set-variables): Doc fix.
 
* emacs-lisp/bytecomp.el (byte-compile-if): Suppress warnings from
......
......@@ -1505,8 +1505,14 @@ to using the function `set-language-environment'."
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment