home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ETKDIA.ZIP / EDIALOG.E < prev    next >
Text File  |  1992-02-15  |  772b  |  28 lines
  1. -- Key definitions :    
  2. -- Look at STDKEYS.E provided in EMACROS.FLS for other key definitions.
  3. defkeys mykeys new
  4.  
  5. def space    =keyin ' '
  6. def backspace=rubout
  7. def enter    =insert;down;.col=1
  8. def home     =begin_line
  9. def ins      =insert_toggle
  10. def left     =left
  11. def pgup     =page_up
  12. def pgdn     =page_down
  13. def right    =right
  14. def left     =left
  15. def up       =up
  16. def down     =down
  17. def del=delete_char
  18. def a_p      ='top';'proof'
  19.  
  20. -- This event procedure is called when an new edit window is opened.
  21. -- arg(1) contains the string that was passed to EPM_EditWindowCreate
  22. -- in the create structure as 'filename'.
  23. defmain
  24.    'xcom e 'arg(1)  -- assume arg(1) is a file and edit it
  25.    .autosave     = 0
  26.    .textcolor    = 240
  27.    keys mykeys
  28.