From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 27 Jan 2009 20:43:27 +0000 (+0000)
Subject: (mouse-select-font): Return a string instead of a list.
X-Git-Tag: emacs-pretest-23.0.90~141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1202d4b3572de440b3141bc203dccf147bf22f6;p=emacs.git

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

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")