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

(set-face-background): When using face-color-supported-p,

Browse source 
specify foreground, not background.
This commit is contained in:
Richard M. Stallman 1995-08-05 06:33:01 +00:00
parent 68002b5f39
commit f1d71b2f75
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/faces.el
View file

@ -150,7 +150,11 @@ in that frame; otherwise change each frame."
;; For a specific frame, use gray stipple instead of gray color
;; if the display does not support a gray color.
(if (and frame (not (eq frame t)) color
(not (face-color-supported-p frame color t)))
;; Check for supportedness for foreground, not for background!
;; face-color-supported-p is smart enough to know
;; that grays are "supported" as background
;; because we are supposed to use stipple for them!
(not (face-color-supported-p frame color nil)))
(set-face-stipple face face-default-stipple frame)
(if (null frame)
(let ((frames (frame-list)))