(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 d08e6af2ec9290f732ff8560158bfb4c40982208..520fc9cbeef3bfee1f7eb62243a43786b5fac733 100644 (file)
--- 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