[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Markus Rost]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.219 
emacs/lisp/international/mule-cmds.el:1.220
*** emacs/lisp/international/mule-cmds.el:1.219 Sun Jan  5 18:13:56 2003
--- emacs/lisp/international/mule-cmds.el       Sat Jan 25 13:20:30 2003
***************
*** 1014,1022 ****
      (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)))))))))
  
  (defun set-language-info-alist (lang-env alist &optional parents)
    "Store ALIST as the definition of language environment LANG-ENV.
--- 1014,1021 ----
      (put 'current-language-environment 'custom-type
         (cons 'choice (mapcar
                        (lambda (lang)
!                         (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,1541 ****
    :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))))))
          'string)
    :initialize 'custom-initialize-default
    :group 'mule)
--- 1532,1539 ----
    :type (if language-info-alist
            (cons 'choice (mapcar
                           (lambda (lang)
!                            (list 'const lang))
!                          (sort (mapcar 'car language-info-alist) 'string<)))
          'string)
    :initialize 'custom-initialize-default
    :group 'mule)