Mercurial > emacs
comparison lisp/frame.el @ 4621:859d97b0f5bd
(frame-initialize): Handle reverseVideo x-resource.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 14 Aug 1993 08:39:25 +0000 |
| parents | ceb140c16ad2 |
| children | dcd4453199e1 |
comparison
equal
deleted
inserted
replaced
| 4620:5474175de175 | 4621:859d97b0f5bd |
|---|---|
| 109 ;; because that would override explicit user resizing. | 109 ;; because that would override explicit user resizing. |
| 110 (setq initial-frame-alist | 110 (setq initial-frame-alist |
| 111 (frame-remove-geometry-params initial-frame-alist)) | 111 (frame-remove-geometry-params initial-frame-alist)) |
| 112 ;; Handle `reverse' as a parameter. | 112 ;; Handle `reverse' as a parameter. |
| 113 (if (cdr (or (assq 'reverse initial-frame-alist) | 113 (if (cdr (or (assq 'reverse initial-frame-alist) |
| 114 (assq 'reverse default-frame-alist))) | 114 (assq 'reverse default-frame-alist) |
| 115 (cons nil | |
| 116 (x-get-resource "reverseVideo" "ReverseVideo")))) | |
| 115 (let ((params (frame-parameters frame-initial-frame))) | 117 (let ((params (frame-parameters frame-initial-frame))) |
| 116 (modify-frame-parameters | 118 (modify-frame-parameters |
| 117 frame-initial-frame | 119 frame-initial-frame |
| 118 ;; Must set cursor-color after background color. | 120 ;; Must set cursor-color after background color. |
| 119 ;; So put it first. | 121 ;; So put it first. |