comparison lisp/frame.el @ 7309:beb9070c6fec

(frame-initialize): Delete the code for reverse-video. x-create-frame-with-faces takes care of that.

7308:7ad4cc8f0a92

	      ;; Delete any specifications for window geometry parameters
	      ;; so that we won't reapply them in frame-notice-user-settings.
	      ;; 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)))))))))

	;; At this point, we know that we have a frame open, so we 
	;; can delete the terminal frame.
	(delete-frame terminal-frame)
	(setq terminal-frame nil))
    

7309:beb9070c6fec

	      ;; Delete any specifications for window geometry parameters
	      ;; so that we won't reapply them in frame-notice-user-settings.
	      ;; 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))))
	;; At this point, we know that we have a frame open, so we 
	;; can delete the terminal frame.
	(delete-frame terminal-frame)
	(setq terminal-frame nil))