diff options
| author | Kenichi Handa | 2002-09-27 04:54:02 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-09-27 04:54:02 +0000 |
| commit | d58b6a31c698e7ac64974980139ff68cf1114e64 (patch) | |
| tree | 81b79b7a5ed977b8c7cfe5451844423d440f4cdb | |
| parent | a92bf2cbf09f8cee1aa099344cdd838af72f0058 (diff) | |
| download | emacs-d58b6a31c698e7ac64974980139ff68cf1114e64.tar.gz emacs-d58b6a31c698e7ac64974980139ff68cf1114e64.zip | |
(generate-fontset-menu): Exclude the defualt fontset.
| -rw-r--r-- | lisp/international/fontset.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 31bc0e223e5..e323d37d412 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el | |||
| @@ -427,14 +427,12 @@ with \"fontset\" in `<CHARSET_REGISTRY> field." | |||
| 427 | ;; Return a list to be appended to `x-fixed-font-alist' when | 427 | ;; Return a list to be appended to `x-fixed-font-alist' when |
| 428 | ;; `mouse-set-font' is called. | 428 | ;; `mouse-set-font' is called. |
| 429 | (defun generate-fontset-menu () | 429 | (defun generate-fontset-menu () |
| 430 | (let ((fontsets (fontset-list)) | 430 | (let (l) |
| 431 | fontset-name | 431 | (dolist (fontset (fontset-list)) |
| 432 | l) | 432 | (or (string-match "fontset-default$" fontset) |
| 433 | (while fontsets | 433 | (push (list (fontset-plain-name fontset) fontset) l))) |
| 434 | (setq fontset-name (car fontsets) fontsets (cdr fontsets)) | ||
| 435 | (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) | ||
| 436 | (cons "Fontset" | 434 | (cons "Fontset" |
| 437 | (sort l (function (lambda (x y) (string< (car x) (car y)))))))) | 435 | (sort l #'(lambda (x y) (string< (car x) (car y))))))) |
| 438 | 436 | ||
| 439 | (defun fontset-plain-name (fontset) | 437 | (defun fontset-plain-name (fontset) |
| 440 | "Return a plain and descriptive name of FONTSET." | 438 | "Return a plain and descriptive name of FONTSET." |