comparison lisp/faces.el @ 29769:18a16ab69699

(frame-background-mode): Use set-default, not set, in setter. (frame-update-faces, frame-update-face-colors): Define with defalias.

29768:6f3f0ca4a359

Set this to the symbol `dark' if your background color is dark, `light' if
your background is light, or nil (default) if you want Emacs to
examine the brightness for you."
  :group 'faces
  :set #'(lambda (var value)
	   (set var value)
	   (mapcar 'frame-set-background-mode (frame-list)))
  :initialize 'custom-initialize-changed
  :type '(choice (choice-item dark)
		 (choice-item light)
		 (choice-item :tag "default" nil)))

;;; Compatiblity with 20.2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Update a frame's faces when we change its default font.

(defun frame-update-faces (frame)
  nil)
(make-obsolete 'frame-update-faces "No longer necessary" "21.1")

;; Update the colors of FACE, after FRAME's own colors have been
;; changed.

(defun frame-update-face-colors (frame)
  (frame-set-background-mode frame))
(make-obsolete 'frame-update-face-colors 'frame-set-background-mode "21.1")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Standard faces.

29769:18a16ab69699

Set this to the symbol `dark' if your background color is dark, `light' if
your background is light, or nil (default) if you want Emacs to
examine the brightness for you."
  :group 'faces
  :set #'(lambda (var value)
	   (set-default var value)
	   (mapcar 'frame-set-background-mode (frame-list)))
  :initialize 'custom-initialize-changed
  :type '(choice (choice-item dark)
		 (choice-item light)
		 (choice-item :tag "default" nil)))

;;; Compatiblity with 20.2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Update a frame's faces when we change its default font.

(defalias 'frame-update-faces 'ignore)
(make-obsolete 'frame-update-faces "No longer necessary" "21.1")

;; Update the colors of FACE, after FRAME's own colors have been
;; changed.

(defalias 'frame-update-face-colors 'frame-set-background-mode)
(make-obsolete 'frame-update-face-colors 'frame-set-background-mode "21.1")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Standard faces.