1;; AT386.el --- terminal support package for IBM AT keyboards 2 3;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 4;; Keywords: terminals 5 6;; Copyright (C) 1992 Free Software Foundation, Inc. 7 8;; This file is part of GNU Emacs. 9 10;; GNU Emacs is free software; you can redistribute it and/or modify 11;; it under the terms of the GNU General Public License as published by 12;; the Free Software Foundation; either version 2, or (at your option) 13;; any later version. 14 15;; GNU Emacs is distributed in the hope that it will be useful, 16;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18;; GNU General Public License for more details. 19 20;; You should have received a copy of the GNU General Public License 21;; along with GNU Emacs; see the file COPYING. If not, write to 22;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 24;;; Commentary: 25 26;;; Uses the Emacs 19 terminal initialization features --- won't work with 18. 27 28;;; Code: 29 30(if (boundp 'AT386-keypad-map) 31 nil 32 ;; The terminal initialization should already have set up some keys 33 (setq AT386-keypad-map (lookup-key function-key-map "\e[")) 34 (if (not (keymapp AT386-keypad-map)) 35 (error "What? Your AT386 termcap/terminfo has no keycaps in it.")) 36 37 ;; Equivalents of these are set up automatically by termcap/terminfo 38 ;; (define-key AT386-keypad-map "A" [up]) 39 ;; (define-key AT386-keypad-map "B" [down]) 40 ;; (define-key AT386-keypad-map "C" [right]) 41 ;; (define-key AT386-keypad-map "D" [left]) 42 43 ;; These would be set up by terminfo, but not termcap 44 (define-key AT386-keypad-map "H" [home]) 45 (define-key AT386-keypad-map "Y" [end]) 46 (define-key AT386-keypad-map "U" [next]) ;; PgDn 47 (define-key AT386-keypad-map "V" [prior]) ;; PgUp 48 (define-key AT386-keypad-map "@" [insert]) ;; Ins key 49 50 ;; These are not normally set up by either 51 (define-key AT386-keypad-map "G" [kp-5]) ;; Unlabeled center key 52 (define-key AT386-keypad-map "S" [kp-subtract]) 53 (define-key AT386-keypad-map "T" [kp-add]) 54 55 ;; Arrange for the ALT key to be equivalent to ESC 56 (define-key function-key-map "\eN" [27]) ; ALT map 57 ) 58 59 60;;; AT386.el ends here 61 62