(frame-notice-user-settings): If background
authorKarl Heuer <kwzh@gnu.org>
Fri, 30 Jul 1999 15:50:26 +0000 (15:50 +0000)
committerKarl Heuer <kwzh@gnu.org>
Fri, 30 Jul 1999 15:50:26 +0000 (15:50 +0000)
color has been changed, update background-mode from it,
then update faces.

lisp/frame.el

index e1adb7b..ef15f9a 100644 (file)
@@ -371,6 +371,13 @@ These supersede the values given in `default-frame-alist'."
            (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)))))