diff options
| author | Geoff Voelker <voelker@cs.washington.edu> | 1996-11-19 06:59:17 +0000 |
|---|---|---|
| committer | Geoff Voelker <voelker@cs.washington.edu> | 1996-11-19 06:59:17 +0000 |
| commit | 2ba980b605ce0633fdb317d0374ace551d1079e1 (patch) | |
| tree | 6206dcfc9e88f244a89d45984268a0dd730fd134 /lisp/faces.el | |
| parent | 4b42c44cfd61cc9b4188b2bc9b48bc6a4462e0af (diff) | |
| download | emacs-2ba980b605ce0633fdb317d0374ace551d1079e1.tar.gz | |
Use w32 instead of ms-windows for window-system symbol
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 65011985dbb..41d85b43c0c 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -409,7 +409,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 (memq window-system '(x ms-windows)) + (if (memq window-system '(x w32)) (make-face-x-resource-internal face)) ;; add to menu (if (fboundp 'facemenu-add-new-face) @@ -423,7 +423,7 @@ If the face already exists, it is unmodified." (cond ((null frame) (let ((frames (frame-list))) (while frames - (if (memq (framep (car frames)) '(x ms-windows)) + (if (memq (framep (car frames)) '(x w32)) (make-face-x-resource-internal (face-name face) (car frames) set-anyway)) (setq frames (cdr frames))))) @@ -1303,7 +1303,7 @@ selected frame." (setq colors (cdr colors))))))) ;; If we are already using x-window frames, initialize faces for them. -(if (memq (framep (selected-frame)) '(x ms-windows)) +(if (memq (framep (selected-frame)) '(x w32)) (face-initialize)) (provide 'faces) |