diff options
| author | Eli Zaretskii | 2008-09-05 11:27:29 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2008-09-05 11:27:29 +0000 |
| commit | 7ced34de28202b8dcdc3525168e8b48074b24d53 (patch) | |
| tree | 2784a71ebc48be1f4a8f33719ac5f3e948975579 | |
| parent | e271d38e798f286de8d7cb6a566bcad008052f19 (diff) | |
| download | emacs-7ced34de28202b8dcdc3525168e8b48074b24d53.tar.gz emacs-7ced34de28202b8dcdc3525168e8b48074b24d53.zip | |
(msdos-face-setup): Setup faces for all frames, not just for terminal-frame.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term/pc-win.el | 20 |
2 files changed, 15 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 115247b54f2..82cab3b8dc1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-09-05 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * term/pc-win.el (msdos-face-setup): Setup faces for all frames, | ||
| 4 | not just for terminal-frame. | ||
| 5 | |||
| 1 | 2008-09-05 Martin Rudalics <rudalics@gmx.at> | 6 | 2008-09-05 Martin Rudalics <rudalics@gmx.at> |
| 2 | 7 | ||
| 3 | * window.el (window--try-to-split-window): Don't split when window | 8 | * window.el (window--try-to-split-window): Don't split when window |
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el index 2e9ce0d27a6..61211e65a1e 100644 --- a/lisp/term/pc-win.el +++ b/lisp/term/pc-win.el | |||
| @@ -86,20 +86,20 @@ | |||
| 86 | ;(modify-frame-parameters terminal-frame default-frame-alist) | 86 | ;(modify-frame-parameters terminal-frame default-frame-alist) |
| 87 | 87 | ||
| 88 | (defun msdos-face-setup () | 88 | (defun msdos-face-setup () |
| 89 | "Set up initial faces for the MS-DOS display." | 89 | "Initial setup of faces for the MS-DOS display." |
| 90 | (set-face-foreground 'bold "yellow" terminal-frame) | 90 | (set-face-foreground 'bold "yellow") |
| 91 | (set-face-foreground 'italic "red" terminal-frame) | 91 | (set-face-foreground 'italic "red") |
| 92 | (set-face-foreground 'bold-italic "lightred" terminal-frame) | 92 | (set-face-foreground 'bold-italic "lightred") |
| 93 | (set-face-foreground 'underline "white" terminal-frame) | 93 | (set-face-foreground 'underline "white") |
| 94 | 94 | ||
| 95 | (make-face 'msdos-menu-active-face) | 95 | (make-face 'msdos-menu-active-face) |
| 96 | (make-face 'msdos-menu-passive-face) | 96 | (make-face 'msdos-menu-passive-face) |
| 97 | (make-face 'msdos-menu-select-face) | 97 | (make-face 'msdos-menu-select-face) |
| 98 | (set-face-foreground 'msdos-menu-active-face "white" terminal-frame) | 98 | (set-face-foreground 'msdos-menu-active-face "white") |
| 99 | (set-face-foreground 'msdos-menu-passive-face "lightgray" terminal-frame) | 99 | (set-face-foreground 'msdos-menu-passive-face "lightgray") |
| 100 | (set-face-background 'msdos-menu-active-face "blue" terminal-frame) | 100 | (set-face-background 'msdos-menu-active-face "blue") |
| 101 | (set-face-background 'msdos-menu-passive-face "blue" terminal-frame) | 101 | (set-face-background 'msdos-menu-passive-face "blue") |
| 102 | (set-face-background 'msdos-menu-select-face "red" terminal-frame)) | 102 | (set-face-background 'msdos-menu-select-face "red")) |
| 103 | 103 | ||
| 104 | (defun msdos-handle-reverse-video (frame parameters) | 104 | (defun msdos-handle-reverse-video (frame parameters) |
| 105 | "Handle the reverse-video frame parameter on MS-DOS frames." | 105 | "Handle the reverse-video frame parameter on MS-DOS frames." |