/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.219 by fx, Sun Jan 5 23:13:56 2003 UTC revision 1.220 by rost, Sat Jan 25 18:20:30 2003 UTC
# Line 1014  see `language-info-alist'." Line 1014  see `language-info-alist'."
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.
# Line 1533  to using the function `set-language-envi Line 1532  to using the function `set-language-envi
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)

Legend:
Removed from v.1.219  
changed lines
  Added in v.1.220

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26