47 |
(dolist (frame (frame-list)) |
(dolist (frame (frame-list)) |
48 |
(face-spec-set face value frame))) |
(face-spec-set face value frame))) |
49 |
;; When making a face after frames already exist |
;; When making a face after frames already exist |
50 |
(if (memq window-system '(x w32)) |
(if (memq window-system '(x w32 mac)) |
51 |
(make-face-x-resource-internal face)))) |
(make-face-x-resource-internal face)))) |
52 |
;; Don't record SPEC until we see it causes no errors. |
;; Don't record SPEC until we see it causes no errors. |
53 |
(put face 'face-defface-spec spec) |
(put face 'face-defface-spec spec) |