home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18288 < prev    next >
Encoding:
Internet Message Format  |  1992-11-20  |  1.9 KB
  1. Path: sparky!uunet!comp.vuw.ac.nz!zl2tnm!toyunix!don
  2. Newsgroups: comp.os.vms
  3. Subject: Re: Is it possible to DEFINE KEY in edit/edt AS EXIT?
  4. Message-ID: <16991325@zl2tnm.gen.nz>
  5. From: don@zl2tnm.gen.nz (Don Stokes)
  6. Date: 21 Nov 92 00:18:13 GMT
  7. Sender: news@zl2tnm.gen.nz (GNEWS Version 2.0 news poster.)
  8. References: <DAVIS.92Nov20105156@pacific.mps.ohio-state.edu>
  9. Distribution: world
  10. Organization: The Wolery
  11. Lines: 63
  12.  
  13. davis@pacific.mps.ohio-state.edu ("John E. Davis") writes:
  14. > It would be nice to write a simple macro which would simply toggle the
  15. > bindings of these keys.  At any rate, the above should accomplish what is
  16. > intended.
  17.  
  18. It's not hard:
  19.  
  20. !++
  21. !
  22. ! numeric.edt: set up numeric keypad under EDT.  Gold/N toggles.  21/11/92/dcs
  23. !
  24. !--
  25. !
  26. ! Macro to set up numeric keypad
  27. !
  28. find buffer numbers
  29. i;define key 0  as "I0^Z."
  30. i;define key 1  as "I1^Z."
  31. i;define key 2  as "I2^Z."
  32. i;define key 3  as "I3^Z."
  33. i;define key 4  as "I4^Z."
  34. i;define key 5  as "I5^Z."
  35. i;define key 6  as "I6^Z."
  36. i;define key 7  as "I7^Z."
  37. i;define key 8  as "I8^Z."
  38. i;define key 9  as "I9^Z."
  39. i;define key 18 as "I-^Z."
  40. i;define key 19 as "I.^Z."
  41. i;define key 21 as "^M."
  42. i;define key gold N as "ext editing."
  43. define macro numbers
  44. !
  45. ! Macro to reset to editing keypad
  46. !
  47. find buffer editing
  48. i;define key 0  as "L."
  49. i;define key 1  as "W."
  50. i;define key 2  as "EL."
  51. i;define key 3  as "C."
  52. i;define key 4  as "ADV."
  53. i;define key 5  as "BACK."
  54. i;define key 6  as "CUTSR."
  55. i;define key 7  as "PAGETOP."
  56. i;define key 8  as "(16L)."
  57. i;define key 9  as "APPENDSR."
  58. i;define key 18 as "DEW."
  59. i;define key 19 as "D+C."
  60. i;define key 21 as "."
  61. i;define key gold N as "ext numbers."
  62. define macro editing
  63. !
  64. ! Set up numeric pad for now
  65. !
  66. find buffer main
  67. numbers
  68.  
  69.  
  70.  
  71.  
  72. --
  73. Don Stokes, ZL2TNM (DS555)                        don@zl2tnm.gen.nz (home)
  74. Network Manager, Computing Services Centre            don@vuw.ac.nz (work)
  75. Victoria University of Wellington, New Zealand              +64-4-495-5052
  76.