Commit 91c51412 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(mouse-set-font): Handle the case where the command was not invoked

using the mouse.
parent b680abcb
......@@ -2201,7 +2201,9 @@ and selects that window."
(progn (unless (display-multi-font-p)
(error "Cannot change fonts on this display"))
(x-popup-menu
last-nonmenu-event
(if (listp last-nonmenu-event)
last-nonmenu-event
(list '(0 0) (selected-window)))
;; Append list of fontsets currently defined.
(append x-fixed-font-alist (list (generate-fontset-menu))))))
(if fonts
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment