From 2097e21d6957dc17f5aca8173218ab24ddf32bb9 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 21 Nov 2007 03:33:25 +0000 Subject: New term init file for w32 console. --- lisp/term/w32console.el | 63 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 lisp/term/w32console.el (limited to 'lisp/term/w32console.el') diff --git a/lisp/term/w32console.el b/lisp/term/w32console.el new file mode 100644 index 0000000000..cf193e1617 --- /dev/null +++ b/lisp/term/w32console.el @@ -0,0 +1,63 @@ +;;; 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)) -- cgit v1.2.3