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