Mercurial > emacs
changeset 58837:e3c6ff0922c2
(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 | 89cc919b0ccd |
| children | 50d6654dfa79 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
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