# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895624819 0
# Node ID 3aff676c3ea3ff0d81cf63bcf8a85a4a3725acf2
# Parent  a48831a21513067a1be5d1b666e8ed7ef64b3c1a
(frame-background-mode): Define a :set function
to update the background mode of existing frames.

diff -r a48831a21513 -r 3aff676c3ea3 lisp/faces.el
--- a/lisp/faces.el	Wed May 20 00:39:09 1998 +0000
+++ b/lisp/faces.el	Wed May 20 00:40:19 1998 +0000
@@ -1432,6 +1432,10 @@
 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)))