Mercurial > emacs
changeset 9665:36bdda3a1dc9
(set-face-background): Set either stipple or color,
never both. Do this only for a specific frame, not for t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Oct 1994 06:05:12 +0000 |
| parents | 1bfdc32d5744 |
| children | d50850d0c8f8 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Sun Oct 23 05:04:03 1994 +0000 +++ b/lisp/faces.el Sun Oct 23 06:05:12 1994 +0000 @@ -109,11 +109,14 @@ If the optional FRAME argument is provided, change only in that frame; otherwise change each frame." (interactive (internal-face-interactive "background")) - (if (and frame (member color '("gray" "gray1" "gray3")) + ;; 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)) + (member color '("gray" "gray1" "gray3")) (not (x-display-color-p frame)) (not (x-display-grayscale-p frame))) - (set-face-stipple face color frame)) - (internal-set-face-1 face 'background color 5 frame)) + (set-face-stipple face color frame) + (internal-set-face-1 face 'background color 5 frame))) (defsubst set-face-stipple (face name &optional frame) "Change the stipple pixmap of face FACE to PIXMAP.