comparison lisp/term/w32-win.el @ 24246:f67cc15ab138

term/w32-win.el (w32-create-initial-fontsets): Back out previous change, invoke from before-init-hook.

24245:418feab1639c

                                (aref xlfd-temp xlfd-regexp-slant-subnum)))))
                  (setq fontset (x-compose-font-name xlfd-fields))
                  (create-fontset-from-fontset-spec
                   (concat fontset ", ascii:" font) styles)
                  )))))
      (w32-create-initial-fontsets)))

;; Apply a geometry resource to the initial frame.  Put it at the end
;; of the alist, so that anything specified on the command line takes
;; precedence.
(let* ((res-geometry (x-get-resource "geometry" "Geometry"))

24246:f67cc15ab138

                                (aref xlfd-temp xlfd-regexp-slant-subnum)))))
                  (setq fontset (x-compose-font-name xlfd-fields))
                  (create-fontset-from-fontset-spec
                   (concat fontset ", ascii:" font) styles)
                  )))))
      ;; This cannot be run yet, as creating fontsets requires a
      ;; Window to be initialised so the fonts can be listed.
      ;; Add it to a hook so it gets run later.
      (add-hook 'before-init-hook 'w32-create-initial-fontsets)
      ))

;; Apply a geometry resource to the initial frame.  Put it at the end
;; of the alist, so that anything specified on the command line takes
;; precedence.
(let* ((res-geometry (x-get-resource "geometry" "Geometry"))