# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 933349826 0
# Node ID 98d218afbb10a08e052702a72cb6efe85bc540e2
# Parent  11070f3c5b593f8d35fdd71d6067e2bc07d8145a
(frame-notice-user-settings): If background
color has been changed, update background-mode from it,
then update faces.

diff -r 11070f3c5b59 -r 98d218afbb10 lisp/frame.el
--- a/lisp/frame.el	Fri Jul 30 15:49:10 1999 +0000
+++ b/lisp/frame.el	Fri Jul 30 15:50:26 1999 +0000
@@ -371,6 +371,13 @@
 	    (setq newparms (nreverse newparms))
 	    (modify-frame-parameters frame-initial-frame
 				     newparms)
+	    ;; If we changed the background color,
+	    ;; we need to update the background-mode parameter
+	    ;; and maybe some faces too.
+	    (when (assq 'background-color newparms)
+	      (unless (assq 'background-mode newparms)
+		(frame-set-background-mode frame-initial-frame))
+	      (face-set-after-frame-default frame-initial-frame))
 	    (if (assq 'font newparms)
 		(frame-update-faces frame-initial-frame)))))