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)) |