Mercurial > emacs
diff lisp/mouse.el @ 17008:3a99b530ad9a
(mouse-set-font): Handle fontset.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 20 Feb 1997 05:47:42 +0000 |
| parents | 4e31b0ff76a9 |
| children | 6a187f72db92 |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Feb 20 05:47:23 1997 +0000 +++ b/lisp/mouse.el Thu Feb 20 05:47:42 1997 +0000 @@ -1881,9 +1881,12 @@ "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