(describe-fontset): Don't cons uselessly.

1 files changed, 2 insertions, 3 deletions

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 6a36e74d100..8aa853b3d82 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1077,9 +1077,8 @@ This shows which font is used for which character(s)."
    (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): "