Mercurial > emacs
changeset 32547:946f66d4b38b
(msdos-handle-reverse-video): Don't remove
reverse from the frame parameters, and don't invert foreground and
background colors.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 16 Oct 2000 19:17:35 +0000 |
| parents | 9672c4db6bed |
| children | da8bc20ce19a |
| files | lisp/term/pc-win.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/pc-win.el Mon Oct 16 19:16:20 2000 +0000 +++ b/lisp/term/pc-win.el Mon Oct 16 19:17:35 2000 +0000 @@ -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