From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 16 Oct 2000 19:17:35 +0000 (+0000)
Subject: (msdos-handle-reverse-video): Don't remove
X-Git-Tag: emacs-pretest-21.0.90~827
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fcacf13ee6ba0f769af98bc8e5cba8284ff1bcd;p=emacs.git

(msdos-handle-reverse-video): Don't remove
reverse from the frame parameters, and don't invert foreground and
background colors.
---

diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index d08e6af2ec9..520fc9cbeef 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -86,15 +86,14 @@
   "Handle the reverse-video frame parameter on MS-DOS frames."
   (when (cdr (assq 'reverse parameters))
       (let* ((params (frame-parameters frame))
-	     (bg (cdr (assq 'foreground-color params)))
-	     (fg (cdr (assq 'background-color params))))
-	(modify-frame-parameters frame '((reverse . nil)))
-	(if (equal bg (cdr (assq 'mouse-color params)))
+	     (fg (cdr (assq 'foreground-color params)))
+	     (bg (cdr (assq 'background-color params))))
+	(if (equal fg (cdr (assq 'mouse-color params)))
 	    (modify-frame-parameters frame
-				     (list (cons 'mouse-color fg))))
-	(if (equal bg (cdr (assq 'cursor-color params)))
+				     (list (cons 'mouse-color bg))))
+	(if (equal fg (cdr (assq 'cursor-color params)))
 	    (modify-frame-parameters frame
-				     (list (cons 'cursor-color fg)))))))
+				     (list (cons 'cursor-color bg)))))))
 
 ;; This must run after all the default colors are inserted into
 ;; tty-color-alist, since msdos-handle-reverse-video needs to know the