mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues Projects Releases Wiki Activity

(frame-set-background-mode): Use frame-parameter

Browse source 
instead of frame-parameters.
This commit is contained in:
Gerd Moellmann 2000-09-07 11:39:31 +00:00
parent 047bc928e5
commit 7542976865
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/faces.el
View file

@ -1302,7 +1302,6 @@ this won't have the expected effect."
(let* ((bg-resource
(and window-system
(x-get-resource ".backgroundMode" "BackgroundMode")))
(params (frame-parameters frame))
(bg-mode (cond (frame-background-mode)
((null window-system)
;; No way to determine this automatically (?).
@ -1310,8 +1309,7 @@ this won't have the expected effect."
(bg-resource
(intern (downcase bg-resource)))
((< (apply '+ (x-color-values
(cdr (assq 'background-color
params))
(frame-parameter frame 'background-color)
frame))
;; Just looking at the screen, colors whose
;; values add up to .6 of the white total