# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768025638 0
# Node ID beb9070c6fec0cfb2030acc04a00a15625832a16
# Parent  7ad4cc8f0a92e56c76bc630be839503727876356
(frame-initialize): Delete the code for reverse-video.
x-create-frame-with-faces takes care of that.

diff -r 7ad4cc8f0a92 -r beb9070c6fec lisp/frame.el
--- 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)