1014 |
(put 'current-language-environment 'custom-type |
(put 'current-language-environment 'custom-type |
1015 |
(cons 'choice (mapcar |
(cons 'choice (mapcar |
1016 |
(lambda (lang) |
(lambda (lang) |
1017 |
(list 'const (car lang))) |
(list 'const lang)) |
1018 |
(sort (copy-sequence language-info-alist) |
(sort (mapcar 'car language-info-alist) 'string<)))))) |
|
(lambda (x y) (string< (car x) (car y))))))))) |
|
1019 |
|
|
1020 |
(defun set-language-info-alist (lang-env alist &optional parents) |
(defun set-language-info-alist (lang-env alist &optional parents) |
1021 |
"Store ALIST as the definition of language environment LANG-ENV. |
"Store ALIST as the definition of language environment LANG-ENV. |
1532 |
:type (if language-info-alist |
:type (if language-info-alist |
1533 |
(cons 'choice (mapcar |
(cons 'choice (mapcar |
1534 |
(lambda (lang) |
(lambda (lang) |
1535 |
(list 'const (car lang))) |
(list 'const lang)) |
1536 |
(sort (copy-sequence language-info-alist) |
(sort (mapcar 'car language-info-alist) 'string<))) |
|
(lambda (x y) (string< (car x) (car y)))))) |
|
1537 |
'string) |
'string) |
1538 |
:initialize 'custom-initialize-default |
:initialize 'custom-initialize-default |
1539 |
:group 'mule) |
:group 'mule) |