# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 958930911 0
# Node ID 9b29679df9935f350557ad539fe8cf7fe1bdf97e
# Parent  abee88aa37f0d2388e933d8b00f11ccbdd2795e2
(list-non-iso-charset-chars, describe-fontset): Remove redundant
lambda.

diff -r abee88aa37f0 -r 9b29679df993 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Sun May 21 17:33:05 2000 +0000
+++ b/lisp/international/mule-diag.el	Sun May 21 17:41:51 2000 +0000
@@ -427,7 +427,7 @@
 	(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 @@
    (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