diff options
Diffstat (limited to 'lisp/term/w32console.el')
| -rw-r--r-- | lisp/term/w32console.el | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/lisp/term/w32console.el b/lisp/term/w32console.el new file mode 100644 index 00000000000..f45d7e0ad7a --- /dev/null +++ b/lisp/term/w32console.el @@ -0,0 +1,65 @@ +;;; w32console.el -- Setup w32 console keys and colors. + +;; Copyright (C) 2007 Free Software Foundation, Inc. + +;; Author: FSF +;; Keywords: terminals + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;;; Code: + +;; W32 uses different color indexes than standard: + +(defvar w32-tty-standard-colors + '(("black" 0 0 0 0) + ("blue" 1 0 0 52480) ; MediumBlue + ("green" 2 8704 35584 8704) ; ForestGreen + ("cyan" 3 0 52736 53504) ; DarkTurquoise + ("red" 4 45568 8704 8704) ; FireBrick + ("magenta" 5 35584 0 35584) ; DarkMagenta + ("brown" 6 40960 20992 11520) ; Sienna + ("lightgray" 7 48640 48640 48640) ; Gray + ("darkgray" 8 26112 26112 26112) ; Gray40 + ("lightblue" 9 0 0 65535) ; Blue + ("lightgreen" 10 0 65535 0) ; Green + ("lightcyan" 11 0 65535 65535) ; Cyan + ("lightred" 12 65535 0 0) ; Red + ("lightmagenta" 13 65535 0 65535) ; Magenta + ("yellow" 14 65535 65535 0) ; Yellow + ("white" 15 65535 65535 65535)) +"A list of VGA console colors, their indices and 16-bit RGB values.") + +(defun terminal-init-w32console () + "Terminal initialization function for w32 console." + ;; Share function key initialization with w32 gui frames + (x-setup-function-keys (selected-frame)) + (let* ((colors w32-tty-standard-colors) + (color (car colors))) + (tty-color-clear) + (while colors + (tty-color-define (car color) (cadr color) (cddr color)) + (setq colors (cdr colors) + color (car colors)))) + (clear-face-cache) + (tty-set-up-initial-frame-faces) + (run-hooks 'terminal-init-w32-hook)) + +;; arch-tag: 3195fd5e-ab86-4a46-b1dc-4f7a8c8deff3 |