Function: generate-fontset-menu

generate-fontset-menu is a byte-compiled function defined in fontset.el.gz.

Signature

(generate-fontset-menu)

Documentation

Return list to be appended to x-fixed-font-alist.

Done when mouse-set-font is called.

Source Code

;; Defined in /usr/src/emacs/lisp/international/fontset.el.gz
(defun generate-fontset-menu ()
  "Return list to be appended to `x-fixed-font-alist'.
Done when `mouse-set-font' is called."
  (let (l)
    (dolist (fontset (fontset-list))
      (or (string-match "fontset-default$" fontset)
	  (string-match "fontset-auto[0-9]+$" fontset)
	  (push (list (fontset-plain-name fontset) fontset) l)))
    (cons "Fontset"
          (sort l (lambda (x y) (string< (car x) (car y)))))))