From 91c5141258ec8dc828d8b558e3df72696ca9aa4e Mon Sep 17 00:00:00 2001
From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 8 Dec 2004 01:14:10 +0000
Subject: [PATCH] (mouse-set-font): Handle the case where the command was not
 invoked using the mouse.

---
 lisp/mouse.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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