Mercurial > emacs

changeset 45909:9f98a97f5469

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-fontset): Don't cons uselessly.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 Jun 2002 23:00:13 +0000
parents bb8152219329
children 32ed873c69a7
files lisp/international/mule-diag.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Tue Jun 18 22:59:30 2002 +0000
+++ b/lisp/international/mule-diag.el	Tue Jun 18 23:00:13 2002 +0000
@@ -1077,9 +1077,8 @@
    (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): "