43 |
;;; Code: |
;;; Code: |
44 |
|
|
45 |
(defconst *EDT-keys* |
(defconst *EDT-keys* |
46 |
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) |
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) |
47 |
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) |
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) |
48 |
("KP8" . [kp-8]) ("KP9" . [kp-9]) ("KP," . [kp-separator]) |
("KP8" . [kp-8]) ("KP9" . [kp-9]) ("KP," . [kp-separator]) |
49 |
("KP-" . [kp-subtract]) ("KPP" . [kp-decimal]) ("KPE" . [kp-enter]) |
("KP-" . [kp-subtract]) ("KPP" . [kp-decimal]) ("KPE" . [kp-enter]) |