# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1102468450 0
# Node ID e3c6ff0922c2bbb668e96bac74c2919d6936eb3a
# Parent  89cc919b0ccd870a5051ab2dd7758de55c9fa6de
(mouse-set-font): Handle the case where the command was not invoked
using the mouse.

diff -r 89cc919b0ccd -r e3c6ff0922c2 lisp/mouse.el
--- a/lisp/mouse.el	Wed Dec 08 01:10:13 2004 +0000
+++ b/lisp/mouse.el	Wed Dec 08 01:14:10 2004 +0000
@@ -2201,7 +2201,9 @@
    (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