Mercurial > emacs
comparison lisp/faces.el @ 14040:187735b53d52
Comment fixes.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 05 Jan 1996 22:21:28 +0000 |
| parents | 9729af46fe60 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 14039:831c5fda97f4 | 14040:187735b53d52 |
|---|---|
| 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)) color | 152 (if (and frame (not (eq frame t)) color |
| 153 ;; Check for supportedness for foreground, not for background! | 153 ;; Check for support for foreground, not for background! |
| 154 ;; face-color-supported-p is smart enough to know | 154 ;; face-color-supported-p is smart enough to know |
| 155 ;; that grays are "supported" as background | 155 ;; that grays are "supported" as background |
| 156 ;; because we are supposed to use stipple for them! | 156 ;; because we are supposed to use stipple for them! |
| 157 (not (face-color-supported-p frame color nil))) | 157 (not (face-color-supported-p frame color nil))) |
| 158 (set-face-stipple face face-default-stipple frame) | 158 (set-face-stipple face face-default-stipple frame) |