# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738546621 0
# Node ID d38749acdf27fc8b1a73d1ab50127069792daa28
# Parent  b2e5c888f5f65a9e6fb82c52f20a60f1bebe44ff
(x-create-frame-with-faces): Handle reverseVideo resource.

diff -r b2e5c888f5f6 -r d38749acdf27 lisp/faces.el
--- a/lisp/faces.el	Thu May 27 23:48:18 1993 +0000
+++ b/lisp/faces.el	Thu May 27 23:50:21 1993 +0000
@@ -743,7 +743,9 @@
       (set-frame-face-alist frame faces)
 
       (if (cdr (or (assq 'reverse parameters)
-		   (assq 'reverse default-frame-alist)))
+		   (assq 'reverse default-frame-alist)
+		   (cons nil
+			 (x-get-resource "reverseVideo" "Reversevideo"))))
 	  (let ((params (frame-parameters frame)))
 	    (modify-frame-parameters
 	     frame