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

using the mouse.
2004-12-08 01:14:10 +00:00
parent b680abcbeb
commit 91c5141258
1 changed files with 3 additions and 1 deletions
--- 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