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

as reverseVideo resource value.
1993-08-14 09:23:24 +00:00
parent 476731da98
commit ec3b1a9bf9
1 changed files with 2 additions and 1 deletions
--- 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