martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(x-create-frame-with-faces):

Browse Source 
Specify frame arg to x-color-values and frame-parameters.
(set-face-background): Pass background-p arg to face-color-supported-p.
This commit is contained in:
Richard M. Stallman
1995-07-18 13:27:49 +00:00
parent 5f8c8f0056
commit 82c028e0bc
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/faces.el
View File

@@ -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