diff options
author | Dave Love <fx@gnu.org> | 2000-05-21 17:41:51 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2000-05-21 17:41:51 +0000 |
commit | 45377ab444f9444faadf5f8bfc31189d1d630d6d (patch) | |
tree | 9c67822b3f8c70399d0edcb2ea92f094df9839dd /lisp/international | |
parent | 4e96834374210af47e8559d881de1020b96e4ab4 (diff) |
(list-non-iso-charset-chars, describe-fontset): Remove redundant
lambda.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/mule-diag.el | 6 |
1 files 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 |