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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 58cf53a1f4c30a04eb195a981610a6748833c15f..5eef35de097b49337735795ec8e1b74c00e039de 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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")