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