Commit c1202d4b authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 90252880
...@@ -2431,12 +2431,13 @@ and selects that window." ...@@ -2431,12 +2431,13 @@ and selects that window."
(interactive) (interactive)
(unless (display-multi-font-p) (unless (display-multi-font-p)
(error "Cannot change fonts on this display")) (error "Cannot change fonts on this display"))
(x-popup-menu (car
(if (listp last-nonmenu-event) (x-popup-menu
last-nonmenu-event (if (listp last-nonmenu-event)
(list '(0 0) (selected-window))) last-nonmenu-event
(append x-fixed-font-alist (list '(0 0) (selected-window)))
(list (generate-fontset-menu))))) (append x-fixed-font-alist
(list (generate-fontset-menu))))))
(declare-function text-scale-mode "face-remap") (declare-function text-scale-mode "face-remap")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment