diff options
| author | Pavel Janík <[email protected]> | 2001-07-16 12:23:00 +0000 |
|---|---|---|
| committer | Pavel Janík <[email protected]> | 2001-07-16 12:23:00 +0000 |
| commit | e8af40eed41d6c61ea6a0649512c4b09afcb1bfa (patch) | |
| tree | 588654cb6c38a93c432bfae53ccbf36569e3cf23 /lisp/emulation/edt-pc.el | |
| parent | 4cba8c0bdcce038e6966aab82d08859d796e69d0 (diff) | |
Some fixes to follow coding conventions.
Diffstat (limited to 'lisp/emulation/edt-pc.el')
| -rw-r--r-- | lisp/emulation/edt-pc.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el index 0cd9ece449..2b6aa25b06 100644 --- a/lisp/emulation/edt-pc.el +++ b/lisp/emulation/edt-pc.el @@ -1,4 +1,4 @@ -;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards +;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards ;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc. @@ -23,7 +23,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Usage: +;;; Commentary: ;; See edt-user.doc in the Emacs etc directory. @@ -68,6 +68,9 @@ ;; and F17 through F20 do not exist on the PC, so the EDT emulation is ;; configured below to ignore attempts to bind functions to those keys. ;; + +;;; Code: + (defconst *EDT-keys* '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) @@ -83,3 +86,5 @@ ("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" ) ("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" ) ("F19" . "" ) ("F20" . "" ))) + +;;; edt-pc.el ends here |