From f95b7b8957ae2d35f794d1af566d149ee66698ed Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Jun 2002 23:00:13 +0000 Subject: [PATCH] (describe-fontset): Don't cons uselessly. --- lisp/international/mule-diag.el | 5 ++--- 1 file 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): " -- 2.39.5