# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 961500804 0
# Node ID 18a16ab696990f23946bd48a488ac49aa0ad4aea
# Parent  6f3f0ca4a3596af12914a5fd784c96fd0d39d5b9
(frame-background-mode): Use set-default, not set, in setter.
(frame-update-faces, frame-update-face-colors): Define with defalias.

diff -r 6f3f0ca4a359 -r 18a16ab69699 lisp/faces.el
--- a/lisp/faces.el	Tue Jun 20 11:23:13 2000 +0000
+++ b/lisp/faces.el	Tue Jun 20 11:33:24 2000 +0000
@@ -1272,7 +1272,7 @@
 examine the brightness for you."
   :group 'faces
   :set #'(lambda (var value)
-	   (set var value)
+	   (set-default var value)
 	   (mapcar 'frame-set-background-mode (frame-list)))
   :initialize 'custom-initialize-changed
   :type '(choice (choice-item dark)
@@ -1469,15 +1469,13 @@
 
 ;; Update a frame's faces when we change its default font.
 
-(defun frame-update-faces (frame)
-  nil)
+(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.
 
-(defun frame-update-face-colors (frame)
-  (frame-set-background-mode frame))
+(defalias 'frame-update-face-colors 'frame-set-background-mode)
 (make-obsolete 'frame-update-face-colors 'frame-set-background-mode "21.1")