Commit 756e055f authored by Markus Rost's avatar Markus Rost

(set-language-info, current-language-environment):

Simplify setting the type of current-language-environment.
parent 1fcfb866
......@@ -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)
......
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