diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 2003-01-25 18:20:30 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 2003-01-25 18:20:30 +0000 |
| commit | 756e055fe91632e21c96600eb6bb0f07c9bb266c (patch) | |
| tree | 50e455892172c8b423cc8e507fe99cbb3c8e1e83 /lisp | |
| parent | 1fcfb866116a5d2749dd03475f9156317e540fe5 (diff) | |
| download | emacs-756e055fe91632e21c96600eb6bb0f07c9bb266c.tar.gz | |
(set-language-info, current-language-environment):
Simplify setting the type of current-language-environment.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c6870fa339a..91e62f34d7a 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1014,9 +1014,8 @@ see `language-info-alist'." (put 'current-language-environment 'custom-type (cons 'choice (mapcar (lambda (lang) - (list 'const (car lang))) - (sort (copy-sequence language-info-alist) - (lambda (x y) (string< (car x) (car y))))))))) + (list 'const lang)) + (sort (mapcar 'car language-info-alist) 'string<)))))) (defun set-language-info-alist (lang-env alist &optional parents) "Store ALIST as the definition of language environment LANG-ENV. @@ -1533,9 +1532,8 @@ to using the function `set-language-environment'." :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)))))) + (list 'const lang)) + (sort (mapcar 'car language-info-alist) 'string<))) 'string) :initialize 'custom-initialize-default :group 'mule) |