(x-create-frame-with-faces): Check for `on' or `true'

as reverseVideo resource value.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index 37212d90ad5..32a0c995ab0 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -876,7 +876,8 @@ selected frame."
       (if (cdr (or (assq 'reverse parameters)
                    (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)))
             (modify-frame-parameters
              frame