diff options
| author | Jason Rumney <jasonr@gnu.org> | 2000-01-30 19:01:08 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2000-01-30 19:01:08 +0000 |
| commit | 5e568214953104bca07601687bb50b25afa32ce4 (patch) | |
| tree | 969e6927c014af5d32814e65ed58e6f5075d6ccb /lisp/w32-fns.el | |
| parent | e0c7e9dfa9a1f1febb73237a028c9418b4bd9e80 (diff) | |
| download | emacs-5e568214953104bca07601687bb50b25afa32ce4.tar.gz emacs-5e568214953104bca07601687bb50b25afa32ce4.tar.bz2 emacs-5e568214953104bca07601687bb50b25afa32ce4.zip | |
Define w32-tty-standard-colors.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 580bea0631a..bcfa817eb48 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -324,4 +324,25 @@ CODING-SYSTEM, use \\[list-coding-systems]." (put 'backspace 'ascii-character 127) (put 'delete 'ascii-character 127) +;; W32 uses different color indexes than standard: + +(defvar w32-tty-standard-colors + '(("white" 15 65535 65535 65535) + ("yellow" 14 65535 65535 0) ; Yellow + ("lightmagenta" 13 65535 0 65535) ; Magenta + ("lightred" 12 65535 0 0) ; Red + ("lightcyan" 11 0 65535 65535) ; Cyan + ("lightgreen" 10 0 65535 0) ; Green + ("lightblue" 9 0 0 65535) ; Blue + ("darkgray" 8 26112 26112 26112) ; Gray40 + ("lightgray" 7 48640 48640 48640) ; Gray + ("brown" 6 40960 20992 11520) ; Sienna + ("magenta" 5 35584 0 35584) ; DarkMagenta + ("red" 4 45568 8704 8704) ; FireBrick + ("cyan" 3 0 52736 53504) ; DarkTurquoise + ("green" 2 8704 35584 8704) ; ForestGreen + ("blue" 1 0 0 52480) ; MediumBlue + ("black" 0 0 0 0)) +"A list of VGA console colors, their indices and 16-bit RGB values.") + ;;; w32-fns.el ends here |