Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 24159:67f80db6c62e | 24160:ab814ec4995e |
|---|---|
| 380 fontset-name | 380 fontset-name |
| 381 l) | 381 l) |
| 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." |
| 389 (if (not (setq fontset (query-fontset fontset))) | 390 (if (not (setq fontset (query-fontset fontset))) |
| 390 (error "Invalid fontset: %s" fontset)) | 391 (error "Invalid fontset: %s" fontset)) |