# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233089007 0
# Node ID c78f514529130f4b866f7649e494c18c95b354c4
# Parent  04b7fc91379d3d696b53e8c939e78ffa8662209f
(mouse-select-font): Return a string instead of a list.

diff -r 04b7fc91379d -r c78f51452913 lisp/mouse.el
--- a/lisp/mouse.el	Tue Jan 27 20:43:18 2009 +0000
+++ b/lisp/mouse.el	Tue Jan 27 20:43:27 2009 +0000
@@ -2431,12 +2431,13 @@
   (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")