427 |
;; Return a list to be appended to `x-fixed-font-alist' when |
;; Return a list to be appended to `x-fixed-font-alist' when |
428 |
;; `mouse-set-font' is called. |
;; `mouse-set-font' is called. |
429 |
(defun generate-fontset-menu () |
(defun generate-fontset-menu () |
430 |
(let ((fontsets (fontset-list)) |
(let (l) |
431 |
fontset-name |
(dolist (fontset (fontset-list)) |
432 |
l) |
(or (string-match "fontset-default$" fontset) |
433 |
(while fontsets |
(push (list (fontset-plain-name fontset) fontset) l))) |
|
(setq fontset-name (car fontsets) fontsets (cdr fontsets)) |
|
|
(setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) |
|
434 |
(cons "Fontset" |
(cons "Fontset" |
435 |
(sort l (function (lambda (x y) (string< (car x) (car y)))))))) |
(sort l #'(lambda (x y) (string< (car x) (car y))))))) |
436 |
|
|
437 |
(defun fontset-plain-name (fontset) |
(defun fontset-plain-name (fontset) |
438 |
"Return a plain and descriptive name of FONTSET." |
"Return a plain and descriptive name of FONTSET." |