diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-08-05 06:33:01 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-08-05 06:33:01 +0000 |
commit | ae1f3f19b4034dae588e6dc0f3ca51bffc59e0cb (patch) | |
tree | 7dbb535780b80c8923cba7c474dca832f181eda3 /lisp | |
parent | 64f5fdf02519ef0658aaae68a309586677f84e28 (diff) | |
download | emacs-ae1f3f19b4034dae588e6dc0f3ca51bffc59e0cb.tar.gz |
(set-face-background): When using face-color-supported-p,
specify foreground, not background.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/faces.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 438b148f46d..368d44f8fa0 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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))) |