Mercurial > emacs
changeset 7309:beb9070c6fec
(frame-initialize): Delete the code for reverse-video.
x-create-frame-with-faces takes care of that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 May 1994 04:27:18 +0000 |
| parents | 7ad4cc8f0a92 |
| children | 22f22911813a |
| files | lisp/frame.el |
| diffstat | 1 files changed, 1 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Wed May 04 03:28:38 1994 +0000 +++ b/lisp/frame.el Wed May 04 04:27:18 1994 +0000 @@ -136,29 +136,7 @@ ;; It would be wrong to reapply them then, ;; because that would override explicit user resizing. (setq initial-frame-alist - (frame-remove-geometry-params initial-frame-alist)) - ;; Handle `reverse' as a parameter. - (if (cdr (or (assq 'reverse initial-frame-alist) - (assq 'reverse default-frame-alist) - (cons nil - (member (x-get-resource "reverseVideo" "ReverseVideo") - '("on" "true"))))) - (let ((params (frame-parameters frame-initial-frame))) - (modify-frame-parameters - frame-initial-frame - ;; Must set cursor-color after background color. - ;; So put it first. - (list (cons 'cursor-color - (cdr (assq 'background-color params))) - (cons 'foreground-color - (cdr (assq 'background-color params))) - (cons 'background-color - (cdr (assq 'foreground-color params))) - (cons 'mouse-color - (cdr (assq 'background-color params))) - (cons 'border-color - (cdr (assq 'background-color params))))))))) - + (frame-remove-geometry-params initial-frame-alist)))) ;; At this point, we know that we have a frame open, so we ;; can delete the terminal frame. (delete-frame terminal-frame)