From 756e055fe91632e21c96600eb6bb0f07c9bb266c Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Sat, 25 Jan 2003 18:20:30 +0000 Subject: [PATCH] (set-language-info, current-language-environment): Simplify setting the type of current-language-environment. --- lisp/international/mule-cmds.el | 10 ++++------ 1 file 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) -- 2.39.2