(frame-initialize): Handle `reverse' as parameter.

1 files changed, 15 insertions, 3 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index 93971344a5a..98f08cba16b 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -94,9 +94,21 @@ These supercede the values given in `default-frame-alist'.")
         ;; 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.