# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773781906 0
# Node ID 9e650e1fe909d598cdc1847ce5ee85947ac909cb
# Parent  b5cc015a3698a924e4a9f5f3de72441cb70137fe
(x-create-frame-with-faces): Don't downcase nil.

diff -r b5cc015a3698 -r 9e650e1fe909 lisp/faces.el
--- a/lisp/faces.el	Sat Jul 09 19:10:16 1994 +0000
+++ b/lisp/faces.el	Sat Jul 09 19:25:06 1994 +0000
@@ -815,9 +815,11 @@
 
       (if (cdr (or (assq 'reverse parameters)
 		   (assq 'reverse default-frame-alist)
-		   (cons nil (member (downcase (x-get-resource "reverseVideo"
-							       "ReverseVideo"))
-				     '("on" "true")))))
+		   (let ((resource (x-get-resource "reverseVideo"
+						   "ReverseVideo")))
+		     (if resource
+			 (cons nil (member (downcase resource)
+					   '("on" "true")))))))
 	  (let ((params (frame-parameters frame)))
 	    (modify-frame-parameters
 	     frame