2201 |
(progn (unless (display-multi-font-p) |
(progn (unless (display-multi-font-p) |
2202 |
(error "Cannot change fonts on this display")) |
(error "Cannot change fonts on this display")) |
2203 |
(x-popup-menu |
(x-popup-menu |
2204 |
last-nonmenu-event |
(if (listp last-nonmenu-event) |
2205 |
|
last-nonmenu-event |
2206 |
|
(list '(0 0) (selected-window))) |
2207 |
;; Append list of fontsets currently defined. |
;; Append list of fontsets currently defined. |
2208 |
(append x-fixed-font-alist (list (generate-fontset-menu)))))) |
(append x-fixed-font-alist (list (generate-fontset-menu)))))) |
2209 |
(if fonts |
(if fonts |