(x-create-frame-with-faces): Don't call frame-set-background-mode

until after handling the reverse-video parameter.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index 060a78cf9d3..27092e18c17 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1206,7 +1206,6 @@ If FRAME is nil, the current FRAME is used."
       (let* ((visibility-spec (assq 'visibility parameters))
              success faces rest)
         (setq frame (x-create-frame (cons '(visibility . nil) parameters)))
-        (frame-set-background-mode frame)
         (unwind-protect
             (progn
 
@@ -1247,6 +1246,8 @@ If FRAME is nil, the current FRAME is used."
                         (modify-frame-parameters frame
                                                  (list (cons 'cursor-color fg))))))
 
+              (frame-set-background-mode frame)
+
               ;; Set up faces from the defface information
               (mapcar (lambda (symbol)
                         (let ((spec (or (get symbol 'saved-face)