Mercurial > emacs
changeset 24160:ab814ec4995e
(generate-fontset-menu): Return a
sorted list by plain names of fontsets.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 24 Jan 1999 04:42:30 +0000 |
| parents | 67f80db6c62e |
| children | 782215de9b98 |
| files | lisp/international/fontset.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/fontset.el Sun Jan 24 04:25:14 1999 +0000 +++ b/lisp/international/fontset.el Sun Jan 24 04:42:30 1999 +0000 @@ -382,7 +382,8 @@ (while fontsets (setq fontset-name (car (car fontsets)) fontsets (cdr fontsets)) (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) - (cons "Fontset" l))) + (cons "Fontset" + (sort l (function (lambda (x y) (string< (car x) (car y)))))))) (defun fontset-plain-name (fontset) "Return a plain and descriptive name of FONTSET."