home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18257 < prev    next >
Encoding:
Text File  |  1992-11-20  |  2.1 KB  |  63 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!pacific.mps.ohio-state.edu!davis
  3. From: davis@pacific.mps.ohio-state.edu ("John E. Davis")
  4. Subject: Re: Is it possible to DEFINE KEY in edit/edt AS EXIT?
  5. In-Reply-To: mzraly@ra.cs.umb.edu's message of 20 Nov 92 09:38:22 GMT
  6. Message-ID: <DAVIS.92Nov20105156@pacific.mps.ohio-state.edu>
  7. Sender: news@pacific.mps.ohio-state.edu
  8. Nntp-Posting-Host: pacific.mps.ohio-state.edu
  9. Reply-To: davis@pacific.mps.ohio-state.edu  (John E. Davis)
  10. Organization: "Dept. of Physics, The Ohio State University"
  11. References: <1992Nov20.093822.21259@cs.umb.edu>
  12. Date: Fri, 20 Nov 1992 15:51:56 GMT
  13. Lines: 48
  14.  
  15. In article <1992Nov20.093822.21259@cs.umb.edu> mzraly@ra.cs.umb.edu (Michael S
  16. Zraly) writes:
  17.  
  18.     [that he would like to bind a key to exit and save as well as
  19.      put the application keypad in a numeric state in the EDT editor]
  20.  
  21.  
  22. I am posting my solution because this came up a few months ago and I do not
  23. recall anyone posting what is the obvious solution in my opinion.  Here is an
  24. edt startup file (edtini.edt) which binds the application keys to their
  25. numeric equivalent and sets the gold-E key combination to exit and save.
  26.  
  27. ---------------------------------------------------------------
  28. define key gold e as "ext exit."   !exit saving main buffer
  29. !
  30. !  remap application keypad keys to numeric values
  31. !
  32. define key 19 as 'i,^Z.'
  33. define key 16 as 'i.^Z.'
  34. define key 18 as 'i-^Z.'
  35. define key 21 as '^M.'
  36. define key 0 as 'i0^Z.'
  37. define key 1 as 'i1^Z.'
  38. define key 2 as 'i2^Z.'
  39. define key 3 as 'i3^Z.'
  40. define key 4 as 'i4^Z.'
  41. define key 5 as 'i5^Z.'
  42. define key 6 as 'i6^Z.'
  43. define key 7 as 'i7^Z.'
  44. define key 8 as 'i8^Z.'
  45. define key 9 as 'i9^Z.'
  46. set mode change            !enter full screen mode
  47. -------------------------------------------------------
  48.  
  49. It would be nice to write a simple macro which would simply toggle the
  50. bindings of these keys.  At any rate, the above should accomplish what is
  51. intended.
  52.  
  53.  
  54.      
  55. --
  56.      _____________
  57. #___/John E. Davis\_________________________________________________________
  58. #
  59. # internet: davis@amy.tch.harvard.edu
  60. #   bitnet: davis@ohstpy
  61. #   office: 617-735-6746
  62. #
  63.