diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-23 06:05:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-23 06:05:12 +0000 |
| commit | ee09252aa0d0048033f48bce7e735a739f645a6e (patch) | |
| tree | c5b7b0c6df0664a1cee52a90ad3d6f8c00ddb5fb /lisp/faces.el | |
| parent | 368b007a35c0880372d2a5c9d04a203fbf513c82 (diff) | |
| download | emacs-ee09252aa0d0048033f48bce7e735a739f645a6e.tar.gz | |
(set-face-background): Set either stipple or color,
never both. Do this only for a specific frame, not for t.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 675e2b54387..666a56c1640 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -109,11 +109,14 @@ in that frame; otherwise change each frame." 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. |