Mercurial > emacs
changeset 12776:d69a2d6d1ae9
(set-face-background): When using face-color-supported-p,
specify foreground, not background.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Aug 1995 06:33:01 +0000 |
| parents | a8cd9be43025 |
| children | 96819e0ab508 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Sat Aug 05 06:17:38 1995 +0000 +++ b/lisp/faces.el Sat Aug 05 06:33:01 1995 +0000 @@ -150,7 +150,11 @@ ;; 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)))