Commit 7b10bca5 authored by Geoff Voelker's avatar Geoff Voelker

[win32] (make-face, make-face-x-resource-internal):

Test for 'win32 window system as well as 'x.
parent f93f3cf5
......@@ -346,7 +346,7 @@ If the face already exists, it is unmodified."
(setq frames (cdr frames)))
(setq global-face-data (cons (cons name face) global-face-data)))
;; when making a face after frames already exist
(if (eq window-system 'x)
(if (or (eq window-system 'x) (eq window-system 'win32))
(make-face-x-resource-internal face))
;; add to menu
(if (fboundp 'facemenu-add-new-face)
......@@ -360,7 +360,7 @@ If the face already exists, it is unmodified."
(cond ((null frame)
(let ((frames (frame-list)))
(while frames
(if (eq (framep (car frames)) 'x)
(if (or (eq (framep (car frames)) 'x) (eq (framep (car frames)) 'win32))
(make-face-x-resource-internal (face-name face)
(car frames) set-anyway))
(setq frames (cdr frames)))))
......@@ -1228,7 +1228,7 @@ selected frame."
(setq colors (cdr colors)))))))
;; If we are already using x-window frames, initialize faces for them.
(if (eq (framep (selected-frame)) 'x)
(if (or (eq (framep (selected-frame)) 'x) (eq (framep (selected-frame)) 'win32))
(face-initialize))
(provide 'faces)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment