[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el

[Dave Love]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.76 
emacs/lisp/international/mule-diag.el:1.77
*** emacs/lisp/international/mule-diag.el:1.76  Mon Jun 17 12:15:32 2002
--- emacs/lisp/international/mule-diag.el       Tue Jun 18 19:00:13 2002
***************
*** 1077,1085 ****
     (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)))
           (completion-ignore-case t))
         (list (completing-read
              "Fontset (default, used by the current frame): "
--- 1077,1084 ----
     (if (not (and window-system (fboundp 'fontset-list)))
         (error "No fontsets being used")
       (let ((fontset-list (nconc
!                         (fontset-list)
!                         (mapcar 'cdr fontset-alias-alist)))
           (completion-ignore-case t))
         (list (completing-read
              "Fontset (default, used by the current frame): "