(msdos-handle-reverse-video): Don't remove

reverse from the frame parameters, and don't invert foreground and background colors.

(msdos-handle-reverse-video): Don't remove
reverse from the frame parameters, and don't invert foreground and background colors.
8fcacf13 · Eli Zaretskii · 546701f5 · 8fcacf13
Commit 8fcacf13 authored Oct 16, 2000 by Eli Zaretskii
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 7 deletions

lisp/term/pc-win.el lisp/term/pc-win.el +6 -7

No files found.
--- 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