(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 482b41426ddbf19da0a93246162f6278ca1db64c..67554dd180a5e0bc4fe5c8da0d87293502951462 100644 (file)
--- 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