# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738296919 0
# Node ID 8e2472cd4409fa81d80c2224df687dbfb8eefa25
# Parent  314cb8d34dcd905853409ff609c1237cdafc54ec
(frame-initialize): Handle `reverse' as parameter.

diff -r 314cb8d34dcd -r 8e2472cd4409 lisp/frame.el
--- a/lisp/frame.el	Tue May 25 02:28:03 1993 +0000
+++ b/lisp/frame.el	Tue May 25 02:28:39 1993 +0000
@@ -94,9 +94,21 @@
 	;; it has a minibuffer, but let initial-frame-alist omit the
 	;; minibuffer spec.
 	(or (delq terminal-frame (minibuffer-frame-list))
-	    (setq default-minibuffer-frame
-		  (setq frame-initial-frame
-			(new-frame initial-frame-alist))))
+	    (progn
+	      (setq default-minibuffer-frame
+		    (setq frame-initial-frame
+			  (new-frame initial-frame-alist)))
+	      ;; Handle `reverse' as a parameter.
+	      (if (cdr (or (assq 'reverse initial-frame-alist)
+			   (assq 'reverse default-frame-alist)))
+		  (let ((params (frame-parameters frame-initial-frame)))
+		    (modify-frame-parameters
+		     frame-initial-frame
+		     (list (cons 'foreground-color (cdr (assq 'background-color params)))
+			   (cons 'background-color (cdr (assq 'foreground-color params)))
+			   (cons 'mouse-color (cdr (assq 'background-color params)))
+			   (cons 'cursor-color (cdr (assq 'background-color params)))
+			   (cons 'border-color (cdr (assq 'background-color params)))))))))
 
 	;; At this point, we know that we have a frame open, so we 
 	;; can delete the terminal frame.