mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(msdos-handle-reverse-video): Don't remove

Browse Source 
reverse from the frame parameters, and don't invert foreground and
background colors.
This commit is contained in:
Eli Zaretskii 2000-10-16 19:17:35 +00:00
parent 546701f50f
commit 8fcacf13ee
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/term/pc-win.el
View File

@ -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