1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index e1adb7ba66e..ef15f9ab78e 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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)))))