(frame-initialize): Handle reverseVideo resource.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index 98f08cba16b..8faa376569f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -100,7 +100,9 @@ These supercede the values given in `default-frame-alist'.")
                           (new-frame initial-frame-alist)))
               ;; Handle `reverse' as a parameter.
               (if (cdr (or (assq 'reverse initial-frame-alist)
-                           (assq 'reverse default-frame-alist)))
+                           (assq 'reverse default-frame-alist)
+                           (cons nil
+                                 (x-get-resource "reverseVideo" "Reversevideo"))))
                   (let ((params (frame-parameters frame-initial-frame)))
                     (modify-frame-parameters
                      frame-initial-frame