From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 14 Aug 1993 08:39:25 +0000 (+0000)
Subject: (frame-initialize): Handle reverseVideo x-resource.
X-Git-Tag: emacs-19.34~11230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e068e8fbf5eeec0a26b8471969dc186f55ffcb9;p=emacs.git

(frame-initialize): Handle reverseVideo x-resource.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 4e7581e3b76..ab41eb39621 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -111,7 +111,9 @@ These supersede the values given in `default-frame-alist'.")
 		    (frame-remove-geometry-params 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