Mercurial > emacs

diff lisp/mouse.el @ 58837:e3c6ff0922c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-set-font): Handle the case where the command was not invoked using the mouse.
author Luc Teirlinck <teirllm@auburn.edu>
date Wed, 08 Dec 2004 01:14:10 +0000
parents 00222ee714ca
children 1c959d343308 e4029991605f
line wrap: on
line diff
--- 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