From 8fcacf13ee6ba0f769af98bc8e5cba8284ff1bcd Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 16 Oct 2000 19:17:35 +0000 Subject: [PATCH] (msdos-handle-reverse-video): Don't remove reverse from the frame parameters, and don't invert foreground and background colors. --- lisp/term/pc-win.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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 -- 2.11.4.GIT