Commit f95b7b89 authored by Stefan Monnier's avatar Stefan Monnier

(describe-fontset): Don't cons uselessly.

parent 4a30e92e
......@@ -1077,9 +1077,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 (nconc
(mapcar 'list (fontset-list))
(mapcar (lambda (x) (list (cdr x)))
fontset-alias-alist)))
(fontset-list)
(mapcar 'cdr fontset-alias-alist)))
(completion-ignore-case t))
(list (completing-read
"Fontset (default, used by the current frame): "
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment