diff options
| author | Kenichi Handa | 1999-01-24 04:42:30 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-01-24 04:42:30 +0000 |
| commit | 80ae5f3a940e3723c5ac86fb85594ecea1ad3ce6 (patch) | |
| tree | 9f5c64270b6055c16d658d37003923d4beea4b63 | |
| parent | 1d5021c352f9a5e7856e58f7edc8a93c2a2ed521 (diff) | |
| download | emacs-80ae5f3a940e3723c5ac86fb85594ecea1ad3ce6.tar.gz emacs-80ae5f3a940e3723c5ac86fb85594ecea1ad3ce6.zip | |
(generate-fontset-menu): Return a
sorted list by plain names of fontsets.
| -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." | |||
| 382 | (while fontsets | 382 | (while fontsets |
| 383 | (setq fontset-name (car (car fontsets)) fontsets (cdr fontsets)) | 383 | (setq fontset-name (car (car fontsets)) fontsets (cdr fontsets)) |
| 384 | (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) | 384 | (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) |
| 385 | (cons "Fontset" l))) | 385 | (cons "Fontset" |
| 386 | (sort l (function (lambda (x y) (string< (car x) (car y)))))))) | ||
| 386 | 387 | ||
| 387 | (defun fontset-plain-name (fontset) | 388 | (defun fontset-plain-name (fontset) |
| 388 | "Return a plain and descriptive name of FONTSET." | 389 | "Return a plain and descriptive name of FONTSET." |