From e80af09c2f58c1d931cbcb016dbd042c348dbf74 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Tue, 7 Nov 1995 07:48:36 +0000 Subject: [PATCH] [win32] (face-menu-read-color, list-colors-display, facemenu-color-equal, face-menu-get-face): Test for 'win32 window system as well as 'x. --- lisp/facemenu.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 3b53cb1b834..772aa397c5d 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -412,7 +412,7 @@ These special properties include `invisible', `intangible' and `read-only'." "Read a color using the minibuffer." (let ((col (completing-read (or prompt "Color: ") (or facemenu-color-alist - (if (eq 'x window-system) + (if (or (eq window-system 'x) (eq window-system 'win32)) (mapcar 'list (x-defined-colors)))) nil t))) (if (equal "" col) @@ -426,7 +426,7 @@ If the optional argument LIST is non-nil, it should be a list of colors to display. Otherwise, this command computes a list of colors that the current display can handle." (interactive) - (if (and (null list) (eq 'x window-system)) + (if (and (null list) (or (eq window-system 'x) (eq window-system 'win32))) (progn (setq list (x-defined-colors)) ;; Delete duplicate colors. @@ -461,7 +461,7 @@ This function queries the window-system server to find out what the color names mean. It returns nil if the colors differ or if it can't determine the correct answer." (cond ((equal a b) t) - ((and (eq 'x window-system) + ((and (or (eq window-system 'x) (eq window-system 'win32)) (equal (x-color-values a) (x-color-values b)))))) (defun facemenu-add-face (face start end) @@ -523,10 +523,10 @@ or nil if given a bad color." (color (substring name 3))) (cond ((string-match "^fg:" name) (set-face-foreground face color) - (and (eq 'x window-system) (x-color-defined-p color))) + (and (or (eq window-system 'x) (eq window-system 'win32)) (x-color-defined-p color))) ((string-match "^bg:" name) (set-face-background face color) - (and (eq 'x window-system) (x-color-defined-p color))) + (and (or (eq window-system 'x) (eq window-system 'win32)) (x-color-defined-p color))) (t)))) symbol)) -- 2.39.2