mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(mouse-set-font): Handle fontset.

Browse Source
This commit is contained in:
Karl Heuer 1997-02-20 05:47:42 +00:00
parent 5e14f0f5f1
commit 51a02226c2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mouse.el
View File

@ -1881,9 +1881,12 @@ and selects that window."
"X fonts suitable for use in Emacs.")
(defun mouse-set-font (&rest fonts)
"Select an emacs font from a list of known good fonts"
"Select an emacs font from a list of known good fonts and fontsets."
(interactive
(x-popup-menu last-nonmenu-event x-fixed-font-alist))
(x-popup-menu
last-nonmenu-event
;; Append list of fontsets currently defined.
(append x-fixed-font-alist (list (generate-fontset-menu)))))
(if fonts
(let (font)
(while fonts