;;
;;  Key definitions for the EDT emulation within GNU Emacs
;;

(defconst *EDT-keys*
  '(

;;
;;  Arrows
;;
    ("UP" . [up])
    ("DOWN" . [down])
    ("LEFT" . [left])
    ("RIGHT" . [right])

;;
;;  PF keys
;;
    ("PF1" . [f12])
    ("PF2" . [kp-divide])
    ("PF3" . [kp-multiply])
    ("PF4" . [kp-subtract])

;;
;;  KP0-9 KP- KP, KPP and KPE
;;
    ("KP0" . [kp-insert])
    ("KP1" . [kp-end])
    ("KP2" . [kp-down])
    ("KP3" . [kp-next])
    ("KP4" . [kp-left])
    ("KP5" . [kp-begin])
    ("KP6" . [kp-right])
    ("KP7" . [kp-home])
    ("KP8" . [kp-up])
    ("KP9" . [kp-prior])
    ("KP-" . [kp-add])
    ("KP," . [delete])
    ("KPP" . [kp-delete])
    ("KPE" . [kp-enter])

;;
;;  Editing keypad (FIND, INSERT, REMOVE)
;;                 (SELECT, PREVIOUS, NEXT)
;;
    ("FIND" . [insert])
    ("INSERT" . [home])
    ("REMOVE" . [prior])
    ("SELECT" . "" )
    ("PREVIOUS" . [end])
    ("NEXT" . [next])

;;
;;  F1-14 Help Do F17-F20
;;
    ("F1" . [f1])
    ("F2" . [f2])
    ("F3" . [f3])
    ("F4" . [f4])
    ("F5" . [f5])
    ("F6" . [f6])
    ("F7" . [f7])
    ("F8" . [f8])
    ("F9" . [f9])
    ("F10" . [f10])
    ("F11" . [f11])
    ("F12" . "" )
    ("F13" . "" )
    ("F14" . "" )
    ("HELP" . [print])
    ("DO" . "")
    ("F17" . "")
    ("F18" . "")
    ("F19" . "")
    ("F20" . "")
;;
;;  Extra Keys 
;;
    )
  )
