procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[win32] (face-menu-read-color, list-colors-display, facemenu-color-equal, face-menu-get-face):

Browse source 
Test for 'win32 window system as well as 'x.
This commit is contained in:
Geoff Voelker 1995-11-07 07:48:36 +00:00
parent 7b10bca5f7
commit e80af09c2f
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/facemenu.el
View file

@ -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))