Mercurial > emacs

changeset 17008:3a99b530ad9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-set-font): Handle fontset.
author Karl Heuer <kwzh@gnu.org>
date Thu, 20 Feb 1997 05:47:42 +0000
parents 84baf57e05b4
children 3db0adbc5367
files lisp/mouse.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
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