# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745320204 0
# Node ID 62564c5e2df7962f85bb6f87b700fffa1d91a9da
# Parent  3c1c4e9a4464fdd865acf427eef57401e37e1f25
(x-create-frame-with-faces): Check for `on' or `true'
as reverseVideo resource value.

diff -r 3c1c4e9a4464 -r 62564c5e2df7 lisp/faces.el
--- a/lisp/faces.el	Sat Aug 14 09:13:23 1993 +0000
+++ b/lisp/faces.el	Sat Aug 14 09:23:24 1993 +0000
@@ -876,7 +876,8 @@
       (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