1 ;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards
3 ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
5 ;; Author: Kevin Gallagher <kgallagh@spd.dsccc.com>
6 ;; Maintainer: Kevin Gallagher <kgallagh@spd.dsccc.com>
7 ;; Keywords: emulations
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
27 ;; See edt-user.doc in the Emacs etc directory.
29 ;; ====================================================================
35 ;; Associate EDT keynames with Emacs terminal function vector names.
36 ;; (Function key vector names for LK-201 are found in lisp/term/lk201.el.)
38 ;; F1 - F5 are not available on many DEC VT series terminals.
39 ;; However, this is not always the case. So support for F1 - F5 is
40 ;; provided here and in lisp/term/lk201.el.
42 '(("KP0" .
[kp-0
]) ("KP1" .
[kp-1
]) ("KP2" .
[kp-2
]) ("KP3" .
[kp-3
])
43 ("KP4" .
[kp-4
]) ("KP5" .
[kp-5
]) ("KP6" .
[kp-6
]) ("KP7" .
[kp-7
])
44 ("KP8" .
[kp-8
]) ("KP9" .
[kp-9
]) ("KP," .
[kp-separator
])
45 ("KP-" .
[kp-subtract
]) ("KPP" .
[kp-decimal
]) ("KPE" .
[kp-enter
])
46 ("PF1" .
[kp-f1
]) ("PF2" .
[kp-f2
]) ("PF3" .
[kp-f3
]) ("PF4" .
[kp-f4
])
47 ("UP" .
[up]) ("DOWN" . [down]) ("RIGHT" . [right]) ("LEFT" . [left])
48 ("FIND" . [find]) ("INSERT" . [insert]) ("REMOVE" . [delete])
49 ("SELECT" . [select]) ("PREVIOUS" . [prior]) ("NEXT" . [next])
50 ("F1" . [f1]) ("F2" . [f2]) ("F3" . [f3]) ("F4" . [f4]) ("F5" . [f5])
51 ("F6" . [f6]) ("F7" . [f7]) ("F8" . [f8]) ("F9" . [f9]) ("F10" . [f10])
52 ("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14])
53 ("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
54 ("F19" . [f19]) ("F20" . [f20])))