76 |
(require 'faces) |
(require 'faces) |
77 |
(require 'select) |
(require 'select) |
78 |
(require 'menu-bar) |
(require 'menu-bar) |
79 |
|
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
80 |
(if (fboundp 'new-fontset) |
(if (fboundp 'new-fontset) |
81 |
(require 'fontset)) |
(require 'fontset)) |
82 |
|
|
1190 |
|
|
1191 |
See the documentation of `create-fontset-from-fontset-spec for the format.") |
See the documentation of `create-fontset-from-fontset-spec for the format.") |
1192 |
|
|
1193 |
|
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
1194 |
(if (fboundp 'new-fontset) |
(if (fboundp 'new-fontset) |
1195 |
(progn |
(progn |
1196 |
;; Create the standard fontset. |
;; Create the standard fontset. |
1401 |
(x-popup-menu |
(x-popup-menu |
1402 |
last-nonmenu-event |
last-nonmenu-event |
1403 |
;; Append list of fontsets currently defined. |
;; Append list of fontsets currently defined. |
1404 |
|
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
1405 |
(if (fboundp 'new-fontset) |
(if (fboundp 'new-fontset) |
1406 |
(append w32-fixed-font-alist (list (generate-fontset-menu))))))) |
(append w32-fixed-font-alist (list (generate-fontset-menu))))))) |
1407 |
(if fonts |
(if fonts |