# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 741694676 0
# Node ID dcf86f82f2c85cdb5f5a5e9a683551fa78b7cfe8
# Parent  b292a011b5f4cd2c62c65052242de741b84b8647
        * term/x-win.el: Check the reverseVideo/ReverseVideo resource,
	correctly distinguish between "on" and "off" values, and put a
	parameter in default-frame-alist.
	* frame.el (frame-initialize): Don't call x-get-resource here.

diff -r b292a011b5f4 -r dcf86f82f2c8 lisp/frame.el
--- a/lisp/frame.el	Sat Jul 03 07:22:04 1993 +0000
+++ b/lisp/frame.el	Sat Jul 03 10:17:56 1993 +0000
@@ -112,9 +112,7 @@
 		  (setq tail (cdr tail))))
 	      ;; Handle `reverse' as a parameter.
 	      (if (cdr (or (assq 'reverse initial-frame-alist)
-			   (assq 'reverse default-frame-alist)
-			   (cons nil
-				 (x-get-resource "reverseVideo" "ReverseVideo"))))
+			   (assq 'reverse default-frame-alist)))
 		  (let ((params (frame-parameters frame-initial-frame)))
 		    (modify-frame-parameters
 		     frame-initial-frame
diff -r b292a011b5f4 -r dcf86f82f2c8 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Sat Jul 03 07:22:04 1993 +0000
+++ b/lisp/term/x-win.el	Sat Jul 03 10:17:56 1993 +0000
@@ -529,6 +529,13 @@
       (setq initial-frame-alist (append initial-frame-alist
 					(x-parse-geometry res-geometry)))))
 
+;; Check the reverseVideo resource.
+(if (assoc
+     (x-get-resource "reverseVideo"
+		     "ReverseVideo")
+     '("True" "true" "Yes" "yes"))
+    (setq default-frame-alist (cons '(reverse . t) default-frame-alist)))
+
 ;; Set x-selection-timeout, measured in milliseconds.
 (let ((res-selection-timeout
        (x-get-resource "selectionTimeout" "SelectionTimeout")))