diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-12-08 01:14:10 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-12-08 01:14:10 +0000 |
| commit | 91c5141258ec8dc828d8b558e3df72696ca9aa4e (patch) | |
| tree | 7b1ab9f3de0f456812bd1c92f2fa1d08fc168acb /lisp/mouse.el | |
| parent | b680abcbeb4b5192c35a5602a8d6e9240ffdde74 (diff) | |
| download | emacs-91c5141258ec8dc828d8b558e3df72696ca9aa4e.tar.gz | |
(mouse-set-font): Handle the case where the command was not invoked
using the mouse.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |