Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 48812:60a4a6de5633
(current-language-environment-custom-type): Return a sorted list.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Thu, 12 Dec 2002 00:27:36 +0000 |
| parents | 3928ea1dee22 |
| children | 47c6ac3517f8 |
comparison
equal
deleted
inserted
replaced
| 48811:0e87fa6109bb | 48812:60a4a6de5633 |
|---|---|
| 1488 (error "Bogus calling sequence")))) | 1488 (error "Bogus calling sequence")))) |
| 1489 | 1489 |
| 1490 (defun current-language-environment-custom-type () | 1490 (defun current-language-environment-custom-type () |
| 1491 "Return a custom type for `current-language-environment'. | 1491 "Return a custom type for `current-language-environment'. |
| 1492 This is based on `language-info-alist'." | 1492 This is based on `language-info-alist'." |
| 1493 (cons 'choice (mapcar (lambda (lang) | 1493 (cons 'choice (mapcar |
| 1494 (list 'const (car lang))) | 1494 (lambda (lang) |
| 1495 language-info-alist))) | 1495 (list 'const (car lang))) |
| 1496 (sort (copy-sequence language-info-alist) | |
| 1497 (lambda (x y) (string< (car x) (car y))))))) | |
| 1496 | 1498 |
| 1497 (defcustom current-language-environment "English" | 1499 (defcustom current-language-environment "English" |
| 1498 "The last language environment specified with `set-language-environment'. | 1500 "The last language environment specified with `set-language-environment'. |
| 1499 This variable should be set only with \\[customize], which is equivalent | 1501 This variable should be set only with \\[customize], which is equivalent |
| 1500 to using the function `set-language-environment'." | 1502 to using the function `set-language-environment'." |