(mouse-set-font): Handle fontset.

51a02226 · Karl Heuer · 5e14f0f5 · 51a02226
Commit 51a02226 authored Feb 20, 1997 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

lisp/mouse.el lisp/mouse.el +5 -2

No files found.
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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