Mercurial > emacs
comparison lisp/faces.el @ 3182:d38749acdf27
(x-create-frame-with-faces): Handle reverseVideo resource.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 May 1993 23:50:21 +0000 |
| parents | 82c29bacb6b3 |
| children | 28b2df35c33e |
comparison
equal
deleted
inserted
replaced
| 3181:b2e5c888f5f6 | 3182:d38749acdf27 |
|---|---|
| 741 (faces (copy-alist global-face-data)) | 741 (faces (copy-alist global-face-data)) |
| 742 (rest faces)) | 742 (rest faces)) |
| 743 (set-frame-face-alist frame faces) | 743 (set-frame-face-alist frame faces) |
| 744 | 744 |
| 745 (if (cdr (or (assq 'reverse parameters) | 745 (if (cdr (or (assq 'reverse parameters) |
| 746 (assq 'reverse default-frame-alist))) | 746 (assq 'reverse default-frame-alist) |
| 747 (cons nil | |
| 748 (x-get-resource "reverseVideo" "Reversevideo")))) | |
| 747 (let ((params (frame-parameters frame))) | 749 (let ((params (frame-parameters frame))) |
| 748 (modify-frame-parameters | 750 (modify-frame-parameters |
| 749 frame | 751 frame |
| 750 (list (cons 'foreground-color (cdr (assq 'background-color params))) | 752 (list (cons 'foreground-color (cdr (assq 'background-color params))) |
| 751 (cons 'background-color (cdr (assq 'foreground-color params))) | 753 (cons 'background-color (cdr (assq 'foreground-color params))) |