diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-07-18 13:27:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-07-18 13:27:49 +0000 |
| commit | 82c028e0bc908bacf3cf23a8dfb09447464ef5b0 (patch) | |
| tree | b79cafdf37fc5219b40414be1750a1d0acb250c2 | |
| parent | 5f8c8f0056dff5812f62477ebc7b514d93663e24 (diff) | |
| download | emacs-82c028e0bc908bacf3cf23a8dfb09447464ef5b0.tar.gz | |
(x-create-frame-with-faces):
Specify frame arg to x-color-values and frame-parameters.
(set-face-background): Pass background-p arg to face-color-supported-p.
| -rw-r--r-- | lisp/faces.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 637170cc457..04dc3c9a2fb 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -150,7 +150,7 @@ 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)) - (not (face-color-supported-p frame color))) + (not (face-color-supported-p frame color t))) (set-face-stipple face face-default-stipple frame) (if (null frame) (let ((frames (frame-list))) @@ -1065,13 +1065,14 @@ selected frame." ;; on this frame. (let ((bg-resource (x-get-resource ".backgroundMode" "BackgroundMode")) - (params (frame-parameters)) + (params (frame-parameters frame)) (bg-mode)) (setq bg-mode (cond (bg-resource (intern (downcase bg-resource))) ((< (apply '+ (x-color-values - (cdr (assq 'background-color params)))) - (/ (apply '+ (x-color-values "white")) 3)) + (cdr (assq 'background-color params)) + frame)) + (/ (apply '+ (x-color-values "white" frame)) 3)) 'dark) (t 'light))) (modify-frame-parameters frame |