diff options
| author | Kenichi Handa <handa@m17n.org> | 1999-01-24 04:42:30 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1999-01-24 04:42:30 +0000 |
| commit | 80ae5f3a940e3723c5ac86fb85594ecea1ad3ce6 (patch) | |
| tree | 9f5c64270b6055c16d658d37003923d4beea4b63 /lisp/international/fontset.el | |
| parent | 1d5021c352f9a5e7856e58f7edc8a93c2a2ed521 (diff) | |
| download | emacs-80ae5f3a940e3723c5ac86fb85594ecea1ad3ce6.tar.gz | |
(generate-fontset-menu): Return a
sorted list by plain names of fontsets.
Diffstat (limited to 'lisp/international/fontset.el')
| -rw-r--r-- | lisp/international/fontset.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index a1a64080bdc..6a3867d244c 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -382,7 +382,8 @@ with \"fontset\" in `<CHARSET_REGISTRY> field." (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." |