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