procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-select-font): Return a string instead of a list.

Browse source
This commit is contained in:
Chong Yidong 2009-01-27 20:43:27 +00:00
parent 902528809e
commit c1202d4b35
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/mouse.el
View file

@ -2431,12 +2431,13 @@ and selects that window."
(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")