From: Luc Teirlinck Date: Wed, 8 Dec 2004 01:14:10 +0000 (+0000) Subject: (mouse-set-font): Handle the case where the command was not invoked X-Git-Tag: ttn-vms-21-2-B4~3376 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91c5141258ec8dc828d8b558e3df72696ca9aa4e;p=emacs.git (mouse-set-font): Handle the case where the command was not invoked using the mouse. --- diff --git a/lisp/mouse.el b/lisp/mouse.el index 912048cd1de..b2fa71dde24 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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