Mercurial > emacs
comparison lisp/faces.el @ 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 | 5e27997957db |
| children | 4ac21edb9f78 |
comparison
equal
deleted
inserted
replaced
| 8185:b5cc015a3698 | 8186:9e650e1fe909 |
|---|---|
| 813 (rest faces)) | 813 (rest faces)) |
| 814 (set-frame-face-alist frame faces) | 814 (set-frame-face-alist frame faces) |
| 815 | 815 |
| 816 (if (cdr (or (assq 'reverse parameters) | 816 (if (cdr (or (assq 'reverse parameters) |
| 817 (assq 'reverse default-frame-alist) | 817 (assq 'reverse default-frame-alist) |
| 818 (cons nil (member (downcase (x-get-resource "reverseVideo" | 818 (let ((resource (x-get-resource "reverseVideo" |
| 819 "ReverseVideo")) | 819 "ReverseVideo"))) |
| 820 '("on" "true"))))) | 820 (if resource |
| 821 (cons nil (member (downcase resource) | |
| 822 '("on" "true"))))))) | |
| 821 (let ((params (frame-parameters frame))) | 823 (let ((params (frame-parameters frame))) |
| 822 (modify-frame-parameters | 824 (modify-frame-parameters |
| 823 frame | 825 frame |
| 824 (list (cons 'foreground-color (cdr (assq 'background-color params))) | 826 (list (cons 'foreground-color (cdr (assq 'background-color params))) |
| 825 (cons 'background-color (cdr (assq 'foreground-color params))) | 827 (cons 'background-color (cdr (assq 'foreground-color params))) |