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

until after handling the reverse-video parameter.

diff --git a/lisp/faces.el b/lisp/faces.el
index 060a78cf9d32d8f4f1eb697e20151e468c729dc9..27092e18c1723dfe8ef5d702fb2e43efe379c6f3 100644 (file)
--- 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)