comparison lisp/faces.el @ 31451:0f9e55c33cc5

(frame-set-background-mode): Use frame-parameter instead of frame-parameters.

31450:82556406aa45

(defun frame-set-background-mode (frame)
  "Set up the `background-mode' and `display-type' frame parameters for FRAME."
  (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 (?).
			 'dark)
			(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))

31451:0f9e55c33cc5

(defun frame-set-background-mode (frame)
  "Set up the `background-mode' and `display-type' frame parameters for FRAME."
  (let* ((bg-resource
	  (and window-system
	       (x-get-resource ".backgroundMode" "BackgroundMode")))
	 (bg-mode (cond (frame-background-mode)
			((null window-system)
			 ;; No way to determine this automatically (?).
			 'dark)
			(bg-resource
			 (intern (downcase bg-resource)))
			((< (apply '+ (x-color-values
				       (frame-parameter frame 'background-color)
				       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))