# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738546638 0
# Node ID c7ae5e66a98c41abbf41c1759b859118ddfbd0da
# Parent  d38749acdf27fc8b1a73d1ab50127069792daa28
(frame-initialize): Handle reverseVideo resource.

diff -r d38749acdf27 -r c7ae5e66a98c lisp/frame.el
--- a/lisp/frame.el	Thu May 27 23:50:21 1993 +0000
+++ b/lisp/frame.el	Thu May 27 23:50:38 1993 +0000
@@ -100,7 +100,9 @@
 			  (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