* 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 --git a/lisp/frame.el b/lisp/frame.el
index 5902e26..a9385ff 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -112,9 +112,7 @@ These supersede the values given in `default-frame-alist'.")
                  (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 --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 4d3dda6..263a0a0 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -529,6 +529,13 @@ This returns ARGS with the arguments that have been processed removed."
       (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")))