Mercurial > emacs
comparison lisp/faces.el @ 12725:968d38f57f3a
(set-face-background): Don't treat nil as a color.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Jul 1995 10:10:35 +0000 |
| parents | e2d3fa52d100 |
| children | d69a2d6d1ae9 |
comparison
equal
deleted
inserted
replaced
| 12724:c3cb2b06e05f | 12725:968d38f57f3a |
|---|---|
| 147 If the optional FRAME argument is provided, change only | 147 If the optional FRAME argument is provided, change only |
| 148 in that frame; otherwise change each frame." | 148 in that frame; otherwise change each frame." |
| 149 (interactive (internal-face-interactive "background")) | 149 (interactive (internal-face-interactive "background")) |
| 150 ;; For a specific frame, use gray stipple instead of gray color | 150 ;; For a specific frame, use gray stipple instead of gray color |
| 151 ;; if the display does not support a gray color. | 151 ;; if the display does not support a gray color. |
| 152 (if (and frame (not (eq frame t)) | 152 (if (and frame (not (eq frame t)) color |
| 153 (not (face-color-supported-p frame color t))) | 153 (not (face-color-supported-p frame color t))) |
| 154 (set-face-stipple face face-default-stipple frame) | 154 (set-face-stipple face face-default-stipple frame) |
| 155 (if (null frame) | 155 (if (null frame) |
| 156 (let ((frames (frame-list))) | 156 (let ((frames (frame-list))) |
| 157 (while frames | 157 (while frames |