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

using the mouse.

1 files changed, 3 insertions, 1 deletions

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