Function: mouse-select-font

mouse-select-font is an interactive and byte-compiled function defined in mouse.el.gz.

Signature

(mouse-select-font)

Documentation

Prompt for a font name, using x-popup-menu, and return it.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
(defun mouse-select-font ()
  "Prompt for a font name, using `x-popup-menu', and return it."
  (interactive)
  (unless (display-multi-font-p)
    (error "Cannot change fonts on this display"))
  (let ((result (car
                 (x-popup-menu
                  (if (listp last-nonmenu-event)
                      last-nonmenu-event
                    (list '(0 0) (selected-window)))
                  (append x-fixed-font-alist
                          (list (generate-fontset-menu))
                          '(("More Fonts" ("By Family" more))))))))
    (if (eq result 'more)
        (car (x-popup-menu
              (if (listp last-nonmenu-event)
                  last-nonmenu-event
                (list '(0 0) (selected-window)))
              (mouse-generate-font-menu)))
      result)))