Mercurial > emacs
changeset 49435:f9953109e75c
(set-language-info, current-language-environment):
Simplify setting the type of current-language-environment.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Sat, 25 Jan 2003 18:20:30 +0000 |
| parents | a4d0ee33dcce |
| children | 0055338cb706 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Sat Jan 25 16:25:39 2003 +0000 +++ b/lisp/international/mule-cmds.el Sat Jan 25 18:20:30 2003 +0000 @@ -1014,9 +1014,8 @@ (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 @@ :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)