diff options
| author | Eli Zaretskii | 2000-10-16 19:17:35 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-10-16 19:17:35 +0000 |
| commit | 8fcacf13ee6ba0f769af98bc8e5cba8284ff1bcd (patch) | |
| tree | 794a21cbb76b63bce19cc1fdfc3fa82e0aebcdb5 | |
| parent | 546701f50f8840be5985f39c355fd6985e63de14 (diff) | |
| download | emacs-8fcacf13ee6ba0f769af98bc8e5cba8284ff1bcd.tar.gz emacs-8fcacf13ee6ba0f769af98bc8e5cba8284ff1bcd.zip | |
(msdos-handle-reverse-video): Don't remove
reverse from the frame parameters, and don't invert foreground and
background colors.
| -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 |