Mercurial > emacs
comparison lisp/term/pc-win.el @ 13628:6da84b713ae7
(msdos-color-aliases): Add more aliases.
(msdos-face-setup): Change colors for bold, bold-italic, underline.
(x-frob-font-slant): Define as no-op.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 22 Nov 1995 13:44:42 +0000 |
parents | be831ed47a75 |
children | 36aa12b0ea6a |
comparison
equal
deleted
inserted
replaced
13627:8873aa3451dd | 13628:6da84b713ae7 |
---|---|
34 ("forestgreen" . "green") | 34 ("forestgreen" . "green") |
35 ("darkolivegreen" . "green") | 35 ("darkolivegreen" . "green") |
36 ("darkgoldenrod" . "brown") | 36 ("darkgoldenrod" . "brown") |
37 ("goldenrod" . "yellow") | 37 ("goldenrod" . "yellow") |
38 ("grey40" . "darkgray") | 38 ("grey40" . "darkgray") |
39 ("rosybrown" . "brown")) | 39 ("rosybrown" . "brown") |
40 ("blue" . "lightblue") ;; from here: for Enriched Text | |
41 ("darkslategray" . "darkgray") | |
42 ("orange" . "brown") | |
43 ("light blue" . "lightblue") ;; from here: for cpp-highlight | |
44 ("light cyan" . "lightcyan") | |
45 ("light yellow" . "yellow") | |
46 ("light pink" . "lightred") | |
47 ("pale green" . "lightgreen") | |
48 ("beige" . "brown") | |
49 ("medium purple" . "magenta") | |
50 ("turquoise" . "lightgreen") | |
51 ("violet" . "magenta")) | |
40 "List of alternate names for colors.") | 52 "List of alternate names for colors.") |
41 | 53 |
42 (defun msdos-color-translate (name) | 54 (defun msdos-color-translate (name) |
43 (setq name (downcase name)) | 55 (setq name (downcase name)) |
44 (let* ((len (length name)) | 56 (let* ((len (length name)) |
82 (defvar default-frame-alist nil) | 94 (defvar default-frame-alist nil) |
83 | 95 |
84 (defun msdos-face-setup () | 96 (defun msdos-face-setup () |
85 (modify-frame-parameters (selected-frame) default-frame-alist) | 97 (modify-frame-parameters (selected-frame) default-frame-alist) |
86 | 98 |
87 (set-face-foreground 'bold "white") | 99 (set-face-foreground 'bold "yellow") |
88 (set-face-foreground 'italic "red") | 100 (set-face-foreground 'italic "red") |
89 (set-face-foreground 'bold-italic "yellow") | 101 (set-face-foreground 'bold-italic "lightred") |
90 (set-face-foreground 'underline "blue") | 102 (set-face-foreground 'underline "white") |
91 (set-face-background 'region "green") | 103 (set-face-background 'region "green") |
92 | 104 |
93 (make-face 'msdos-menu-active-face) | 105 (make-face 'msdos-menu-active-face) |
94 (make-face 'msdos-menu-passive-face) | 106 (make-face 'msdos-menu-passive-face) |
95 (make-face 'msdos-menu-select-face) | 107 (make-face 'msdos-menu-select-face) |
134 | 146 |
135 ;; From lisp/select.el | 147 ;; From lisp/select.el |
136 (defun x-get-selection (&rest rest) "") | 148 (defun x-get-selection (&rest rest) "") |
137 (fset 'x-set-selection 'ignore) | 149 (fset 'x-set-selection 'ignore) |
138 | 150 |
151 ;; From lisp/faces.el: we only have one font, so always return | |
152 ;; it, no matter which variety they've asked for. | |
153 (defun x-frob-font-slant (font which) | |
154 font) | |
155 | |
139 ;; From lisp/frame.el | 156 ;; From lisp/frame.el |
140 (fset 'set-default-font 'ignore) | 157 (fset 'set-default-font 'ignore) |
141 (fset 'set-mouse-color 'ignore) ; We cannot, I think. | 158 (fset 'set-mouse-color 'ignore) ; We cannot, I think. |
142 (fset 'set-cursor-color 'ignore) ; Hardware determined by char under. | 159 (fset 'set-cursor-color 'ignore) ; Hardware determined by char under. |
143 (fset 'set-border-color 'ignore) ; Not useful. | 160 (fset 'set-border-color 'ignore) ; Not useful. |