-;; Map certain keypad keys into ASCII characters
-;; that people usually expect.
-(define-key function-key-map [tab] [?\t])
-(define-key function-key-map [linefeed] [?\n])
-(define-key function-key-map [clear] [11])
-(define-key function-key-map [return] [13])
-(define-key function-key-map [escape] [?\e])
-(define-key function-key-map [M-tab] [?\M-\t])
-(define-key function-key-map [M-linefeed] [?\M-\n])
-(define-key function-key-map [M-clear] [?\M-\013])
-(define-key function-key-map [M-return] [?\M-\015])
-(define-key function-key-map [M-escape] [?\M-\e])
-
-;; These don't do the right thing (voelker)
-;(define-key function-key-map [backspace] [127])
-;(define-key function-key-map [delete] [127])
-;(define-key function-key-map [M-backspace] [?\M-\d])
-;(define-key function-key-map [M-delete] [?\M-\d])
-
-;; These tell read-char how to convert
-;; these special chars to ASCII.
-(put 'tab 'ascii-character ?\t)
-(put 'linefeed 'ascii-character ?\n)
-(put 'clear 'ascii-character 12)
-(put 'return 'ascii-character 13)
-(put 'escape 'ascii-character ?\e)
-(put 'backspace 'ascii-character 127)
-(put 'delete 'ascii-character 127)
-
-;; 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.")
-
-