From: Dave Love <fx@gnu.org>
Date: Sun, 21 May 2000 17:41:51 +0000 (+0000)
Subject: (list-non-iso-charset-chars, describe-fontset): Remove redundant
X-Git-Tag: emacs-pretest-21.0.90~3833
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45377ab444f9444faadf5f8bfc31189d1d630d6d;p=emacs.git

(list-non-iso-charset-chars, describe-fontset): Remove redundant
lambda.
---

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