From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 May 1997 01:30:07 +0000 (+0000)
Subject: (x-create-frame-with-faces): Don't call frame-set-background-mode
X-Git-Tag: emacs-20.1~1995
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f020126027c3ad6266b6e12ff424d51bc6fe4f71;p=emacs.git

(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 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)