]> git.eshelyaron.com Git - emacs.git/commitdiff
(frame-initialize): Delete the code for reverse-video.
authorRichard M. Stallman <rms@gnu.org>
Wed, 4 May 1994 04:27:18 +0000 (04:27 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 4 May 1994 04:27:18 +0000 (04:27 +0000)
x-create-frame-with-faces takes care of that.

lisp/frame.el

index bf0c8537940dafd56f8aee9528163514fec1dd73..e32e0ea814fbbd778b42ccf968381de1e432729b 100644 (file)
@@ -136,29 +136,7 @@ These supersede the values given in `default-frame-alist'.")
              ;; 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)