diff options
| -rw-r--r-- | lisp/term/pc-win.el | 13 |
1 files 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 @@ | |||
| 86 | "Handle the reverse-video frame parameter on MS-DOS frames." | 86 | "Handle the reverse-video frame parameter on MS-DOS frames." |
| 87 | (when (cdr (assq 'reverse parameters)) | 87 | (when (cdr (assq 'reverse parameters)) |
| 88 | (let* ((params (frame-parameters frame)) | 88 | (let* ((params (frame-parameters frame)) |
| 89 | (bg (cdr (assq 'foreground-color params))) | 89 | (fg (cdr (assq 'foreground-color params))) |
| 90 | (fg (cdr (assq 'background-color params)))) | 90 | (bg (cdr (assq 'background-color params)))) |
| 91 | (modify-frame-parameters frame '((reverse . nil))) | 91 | (if (equal fg (cdr (assq 'mouse-color params))) |
| 92 | (if (equal bg (cdr (assq 'mouse-color params))) | ||
| 93 | (modify-frame-parameters frame | 92 | (modify-frame-parameters frame |
| 94 | (list (cons 'mouse-color fg)))) | 93 | (list (cons 'mouse-color bg)))) |
| 95 | (if (equal bg (cdr (assq 'cursor-color params))) | 94 | (if (equal fg (cdr (assq 'cursor-color params))) |
| 96 | (modify-frame-parameters frame | 95 | (modify-frame-parameters frame |
| 97 | (list (cons 'cursor-color fg))))))) | 96 | (list (cons 'cursor-color bg))))))) |
| 98 | 97 | ||
| 99 | ;; This must run after all the default colors are inserted into | 98 | ;; This must run after all the default colors are inserted into |
| 100 | ;; tty-color-alist, since msdos-handle-reverse-video needs to know the | 99 | ;; tty-color-alist, since msdos-handle-reverse-video needs to know the |