Mercurial > emacs

changeset 29057:9b29679df993

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-non-iso-charset-chars, describe-fontset): Remove redundant lambda.
author Dave Love <fx@gnu.org>
date Sun, 21 May 2000 17:41:51 +0000
parents abee88aa37f0
children 39b69af53e85
files lisp/international/mule-diag.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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