# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1024441213 0
# Node ID 9f98a97f546914380811fe28e6b8d3bf664383b9
# Parent  bb8152219329ae119ab9b1815533d700b6396f02
(describe-fontset): Don't cons uselessly.

diff -r bb8152219329 -r 9f98a97f5469 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Tue Jun 18 22:59:30 2002 +0000
+++ b/lisp/international/mule-diag.el	Tue Jun 18 23:00:13 2002 +0000
@@ -1077,9 +1077,8 @@
    (if (not (and window-system (fboundp 'fontset-list)))
        (error "No fontsets being used")
      (let ((fontset-list (nconc
-			  (mapcar 'list (fontset-list))
-			  (mapcar (lambda (x) (list (cdr x)))
-				  fontset-alias-alist)))
+			  (fontset-list)
+			  (mapcar 'cdr fontset-alias-alist)))
 	   (completion-ignore-case t))
        (list (completing-read
 	      "Fontset (default, used by the current frame): "