mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-19 12:20:17 -08:00
Code Issues Projects Releases Wiki Activity

(frame-initialize): Delete the code for reverse-video.

Browse source 
x-create-frame-with-faces takes care of that.
This commit is contained in:
Richard M. Stallman 1994-05-04 04:27:18 +00:00
parent 5fd2229822
commit c2079f0a5d
1 changed files with 1 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/frame.el
View file

@ -136,29 +136,7 @@ These supersede the values given in `default-frame-alist'.")
;; It would be wrong to reapply them then, ;; It would be wrong to reapply them then,
;; because that would override explicit user resizing. ;; because that would override explicit user resizing.
(setq initial-frame-alist (setq initial-frame-alist
(frame-remove-geometry-params 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)))))))))
;; At this point, we know that we have a frame open, so we ;; At this point, we know that we have a frame open, so we
;; can delete the terminal frame. ;; can delete the terminal frame.
(delete-frame terminal-frame) (delete-frame terminal-frame)