Mercurial > emacs
diff lisp/international/fontset.el @ 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 | 729affdf2ca1 |
children | 38dc0ce2bf99 |
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."