mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-select-font): New function.

Browse source
This commit is contained in:
Chong Yidong 2008-06-10 19:57:09 +00:00
parent 7ecc401137
commit ecb044e135
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/mouse.el
View file

@ -2425,8 +2425,25 @@ and selects that window."
)
"X fonts suitable for use in Emacs.")
(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"))
(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)))))
(defun mouse-set-font (&rest fonts)
"Select an Emacs font from a list of known good fonts and fontsets."
"Set the default font for the selected frame.
The argument FONTS is a list of font names; the first valid font
in this list is used.
When called interactively, pop up a menu and allow the user to
choose a font."
(interactive
(progn (unless (display-multi-font-p)
(error "Cannot change fonts on this display"))