From 45377ab444f9444faadf5f8bfc31189d1d630d6d Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 21 May 2000 17:41:51 +0000 Subject: [PATCH] (list-non-iso-charset-chars, describe-fontset): Remove redundant lambda. --- lisp/international/mule-diag.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 482b41426dd..67554dd180a 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -427,7 +427,7 @@ detailed meanings of these arguments." (error "Unknown external charset: %s" charset)) (insert (format "Characters in non-ISO charset %s.\n" charset)) (insert "They are mapped to: " - (mapconcat (lambda (x) (symbol-name x)) charsets ", ") + (mapconcat #'symbol-name charsets ", ") "\n") (while ranges (setq range (car ranges) ranges (cdr ranges)) @@ -1104,8 +1104,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 (append - (mapcar '(lambda (x) (list x)) (fontset-list)) - (mapcar '(lambda (x) (list (cdr x))) + (mapcar 'list (fontset-list)) + (mapcar (lambda (x) (list (cdr x))) fontset-alias-alist))) (completion-ignore-case t)) (list (completing-read -- 2.39.5