Mercurial > emacs
changeset 101581:c78f51452913
(mouse-select-font): Return a string instead of a list.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 27 Jan 2009 20:43:27 +0000 |
| parents | 04b7fc91379d |
| children | cfbf548023b7 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Tue Jan 27 20:43:18 2009 +0000 +++ b/lisp/mouse.el Tue Jan 27 20:43:27 2009 +0000 @@ -2431,12 +2431,13 @@ (interactive) (unless (display-multi-font-p) (error "Cannot change fonts on this display")) - (x-popup-menu - (if (listp last-nonmenu-event) - last-nonmenu-event - (list '(0 0) (selected-window))) - (append x-fixed-font-alist - (list (generate-fontset-menu))))) + (car + (x-popup-menu + (if (listp last-nonmenu-event) + last-nonmenu-event + (list '(0 0) (selected-window))) + (append x-fixed-font-alist + (list (generate-fontset-menu)))))) (declare-function text-scale-mode "face-remap")