(frame-initialize): Check for `on' or `true'

as reverseVideo resource value.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index ab41eb39621..ac4304dc09f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -113,7 +113,8 @@ These supersede the values given in `default-frame-alist'.")
               (if (cdr (or (assq 'reverse initial-frame-alist)
                            (assq 'reverse default-frame-alist)
                            (cons nil
-                                 (x-get-resource "reverseVideo" "ReverseVideo"))))
+                                 (member (x-get-resource "reverseVideo" "ReverseVideo")
+                                         '("on" "true")))))
                   (let ((params (frame-parameters frame-initial-frame)))
                     (modify-frame-parameters
                      frame-initial-frame