From c1202d4b3572de440b3141bc203dccf147bf22f6 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 27 Jan 2009 20:43:27 +0000
Subject: [PATCH] (mouse-select-font): Return a string instead of a list.

---
 lisp/mouse.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 58cf53a1f4c..5eef35de097 100644
--- 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")
 
-- 
2.39.5