diff options
| -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." | |||
| 2201 | (progn (unless (display-multi-font-p) | 2201 | (progn (unless (display-multi-font-p) |
| 2202 | (error "Cannot change fonts on this display")) | 2202 | (error "Cannot change fonts on this display")) |
| 2203 | (x-popup-menu | 2203 | (x-popup-menu |
| 2204 | last-nonmenu-event | 2204 | (if (listp last-nonmenu-event) |
| 2205 | last-nonmenu-event | ||
| 2206 | (list '(0 0) (selected-window))) | ||
| 2205 | ;; Append list of fontsets currently defined. | 2207 | ;; Append list of fontsets currently defined. |
| 2206 | (append x-fixed-font-alist (list (generate-fontset-menu)))))) | 2208 | (append x-fixed-font-alist (list (generate-fontset-menu)))))) |
| 2207 | (if fonts | 2209 | (if fonts |