mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2002-06-18 23:00:13 +00:00
parent 4a30e92ecd
commit f95b7b8957
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/international/mule-diag.el
View file

@ -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): "