procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(frame-set-background-mode): Don't do anythung for text-only or MSDOS frame.

Browse source
This commit is contained in:
Richard M. Stallman 1998-10-10 12:10:30 +00:00
parent 5d7fed93b5
commit 49cd149a22
1 changed files with 25 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
lisp/faces.el
View file

@ -1457,30 +1457,31 @@ examine the brightness for you."
(defun frame-set-background-mode (frame)
"Set up the `background-mode' and `display-type' frame parameters for FRAME."
(let ((bg-resource (x-get-resource ".backgroundMode"
"BackgroundMode"))
(params (frame-parameters frame))
(bg-mode))
(setq bg-mode
(cond (frame-background-mode)
(bg-resource (intern (downcase bg-resource)))
((< (apply '+ (x-color-values
(cdr (assq 'background-color params))
frame))
;; Just looking at the screen,
;; colors whose values add up to .6 of the white total
;; still look dark to me.
(* (apply '+ (x-color-values "white" frame)) .6))
'dark)
(t 'light)))
(modify-frame-parameters frame
(list (cons 'background-mode bg-mode)
(cons 'display-type
(cond ((x-display-color-p frame)
'color)
((x-display-grayscale-p frame)
'grayscale)
(t 'mono)))))))
(unless (memq (framep frame) '(t pc))
(let ((bg-resource (x-get-resource ".backgroundMode"
"BackgroundMode"))
(params (frame-parameters frame))
(bg-mode))
(setq bg-mode
(cond (frame-background-mode)
(bg-resource (intern (downcase bg-resource)))
((< (apply '+ (x-color-values
(cdr (assq 'background-color params))
frame))
;; Just looking at the screen,
;; colors whose values add up to .6 of the white total
;; still look dark to me.
(* (apply '+ (x-color-values "white" frame)) .6))
'dark)
(t 'light)))
(modify-frame-parameters frame
(list (cons 'background-mode bg-mode)
(cons 'display-type
(cond ((x-display-color-p frame)
'color)
((x-display-grayscale-p frame)
'grayscale)
(t 'mono))))))))
;; Update a frame's faces when we change its default font.
(defun frame-update-faces (frame) nil)