From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Jul 1994 19:25:06 +0000 (+0000)
Subject: (x-create-frame-with-faces): Don't downcase nil.
X-Git-Tag: emacs-19.34~7667
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a48e03c32658eff85551d533ebd0c9274428e3d9;p=emacs.git

(x-create-frame-with-faces): Don't downcase nil.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 1bb33b407f9..02de5dcc8a1 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -815,9 +815,11 @@ selected frame."
 
       (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