mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
using the mouse.
This commit is contained in:
Luc Teirlinck 2004-12-08 01:14:10 +00:00
parent b680abcbeb
commit 91c5141258
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -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