From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Sat, 25 Jan 2003 18:20:30 +0000 (+0000)
Subject: (set-language-info, current-language-environment):
X-Git-Tag: ttn-vms-21-2-B4~11492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=756e055fe91632e21c96600eb6bb0f07c9bb266c;p=emacs.git

(set-language-info, current-language-environment):
Simplify setting the type of current-language-environment.
---

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)