From: Dave Love <fx@gnu.org>
Date: Tue, 20 Jun 2000 11:33:24 +0000 (+0000)
Subject: (frame-background-mode): Use set-default, not set, in setter.
X-Git-Tag: emacs-pretest-21.0.90~3217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c20d5073510b8993ecb631d2b6c0bec987480cf1;p=emacs.git

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

diff --git a/lisp/faces.el b/lisp/faces.el
index 914f2c177af..170b0849b7e 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1272,7 +1272,7 @@ 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)
+	   (set-default var value)
 	   (mapcar 'frame-set-background-mode (frame-list)))
   :initialize 'custom-initialize-changed
   :type '(choice (choice-item dark)
@@ -1469,15 +1469,13 @@ created."
 
 ;; 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")