Mercurial > emacs
changeset 8186:9e650e1fe909
(x-create-frame-with-faces): Don't downcase nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Jul 1994 19:25:06 +0000 |
| parents | b5cc015a3698 |
| children | 9120cee6bfab |
| files | lisp/faces.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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