diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-07-09 19:25:06 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-07-09 19:25:06 +0000 |
commit | 93ae4ab5558a3ec5964548fcca45c092ce9bec53 (patch) | |
tree | d43273e00fdd4ef4bb227e24cd2b0ead0a8956b3 /lisp/faces.el | |
parent | 48a5c195661a1a0ecf8015d13367cc8980d9a5e1 (diff) | |
download | emacs-93ae4ab5558a3ec5964548fcca45c092ce9bec53.tar.gz |
(x-create-frame-with-faces): Don't downcase nil.
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 5 insertions, 3 deletions
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 |