/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.76 by rms, Mon Jun 17 16:15:32 2002 UTC revision 1.77 by monnier, Tue Jun 18 23:00:13 2002 UTC
# Line 1077  This shows which font is used for which Line 1077  This shows which font is used for which
1077     (if (not (and window-system (fboundp 'fontset-list)))     (if (not (and window-system (fboundp 'fontset-list)))
1078         (error "No fontsets being used")         (error "No fontsets being used")
1079       (let ((fontset-list (nconc       (let ((fontset-list (nconc
1080                            (mapcar 'list (fontset-list))                            (fontset-list)
1081                            (mapcar (lambda (x) (list (cdr x)))                            (mapcar 'cdr fontset-alias-alist)))
                                   fontset-alias-alist)))  
1082             (completion-ignore-case t))             (completion-ignore-case t))
1083         (list (completing-read         (list (completing-read
1084                "Fontset (default, used by the current frame): "                "Fontset (default, used by the current frame): "

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26