diff options
| author | Richard M. Stallman | 1994-05-04 04:27:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-04 04:27:18 +0000 |
| commit | c2079f0a5d316b7554285d69f9b18f4fae02ea28 (patch) | |
| tree | 841d8eed21f2eaf65cc6a5584fa027f3580634cf | |
| parent | 5fd2229822c2dda0a03b7694a38c4ab52c5294d8 (diff) | |
| download | emacs-c2079f0a5d316b7554285d69f9b18f4fae02ea28.tar.gz emacs-c2079f0a5d316b7554285d69f9b18f4fae02ea28.zip | |
(frame-initialize): Delete the code for reverse-video.
x-create-frame-with-faces takes care of that.
| -rw-r--r-- | lisp/frame.el | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index bf0c8537940..e32e0ea814f 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -136,29 +136,7 @@ These supersede the values given in `default-frame-alist'.") | |||
| 136 | ;; It would be wrong to reapply them then, | 136 | ;; It would be wrong to reapply them then, |
| 137 | ;; because that would override explicit user resizing. | 137 | ;; because that would override explicit user resizing. |
| 138 | (setq initial-frame-alist | 138 | (setq initial-frame-alist |
| 139 | (frame-remove-geometry-params initial-frame-alist)) | 139 | (frame-remove-geometry-params initial-frame-alist)))) |
| 140 | ;; Handle `reverse' as a parameter. | ||
| 141 | (if (cdr (or (assq 'reverse initial-frame-alist) | ||
| 142 | (assq 'reverse default-frame-alist) | ||
| 143 | (cons nil | ||
| 144 | (member (x-get-resource "reverseVideo" "ReverseVideo") | ||
| 145 | '("on" "true"))))) | ||
| 146 | (let ((params (frame-parameters frame-initial-frame))) | ||
| 147 | (modify-frame-parameters | ||
| 148 | frame-initial-frame | ||
| 149 | ;; Must set cursor-color after background color. | ||
| 150 | ;; So put it first. | ||
| 151 | (list (cons 'cursor-color | ||
| 152 | (cdr (assq 'background-color params))) | ||
| 153 | (cons 'foreground-color | ||
| 154 | (cdr (assq 'background-color params))) | ||
| 155 | (cons 'background-color | ||
| 156 | (cdr (assq 'foreground-color params))) | ||
| 157 | (cons 'mouse-color | ||
| 158 | (cdr (assq 'background-color params))) | ||
| 159 | (cons 'border-color | ||
| 160 | (cdr (assq 'background-color params))))))))) | ||
| 161 | |||
| 162 | ;; At this point, we know that we have a frame open, so we | 140 | ;; At this point, we know that we have a frame open, so we |
| 163 | ;; can delete the terminal frame. | 141 | ;; can delete the terminal frame. |
| 164 | (delete-frame terminal-frame) | 142 | (delete-frame terminal-frame) |