# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745317565 0
# Node ID 859d97b0f5bda51e658a8b43bf90f12ab8feef2c
# Parent  5474175de1753d0fab27e4b8fd5384dbbcb474aa
(frame-initialize): Handle reverseVideo x-resource.

diff -r 5474175de175 -r 859d97b0f5bd lisp/frame.el
--- a/lisp/frame.el	Sat Aug 14 07:54:59 1993 +0000
+++ b/lisp/frame.el	Sat Aug 14 08:39:25 1993 +0000
@@ -111,7 +111,9 @@
 		    (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