home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / me31111 / ue311cmd.zoo / cmd / stkeypad.cmd < prev    next >
Encoding:
Text File  |  1992-08-23  |  2.9 KB  |  118 lines
  1. store-procedure insert-leftparen
  2.     insert-string (
  3. !endm
  4. store-procedure insert-rightparen
  5.     insert-string )
  6. !endm
  7. store-procedure insert-slash
  8.     insert-string /
  9. !endm
  10. store-procedure insert-asterisk
  11.     insert-string "*"
  12. !endm
  13. store-procedure insert-seven
  14.     insert-string 7
  15. !endm
  16. store-procedure insert-eight
  17.     insert-string 8
  18. !endm
  19. store-procedure insert-nine
  20.     insert-string 9
  21. !endm
  22. store-procedure insert-minus
  23.     insert-string -
  24. !endm
  25. store-procedure insert-four
  26.     insert-string 4
  27. !endm
  28. store-procedure insert-five
  29.     insert-string 5
  30. !endm
  31. store-procedure insert-six
  32.     insert-string 6
  33. !endm
  34. store-procedure insert-plus
  35.     insert-string +
  36. !endm
  37. store-procedure insert-one
  38.     insert-string 1
  39. !endm
  40. store-procedure insert-two
  41.     insert-string 2
  42. !endm
  43. store-procedure insert-three
  44.     insert-string 3
  45. !endm
  46. store-procedure insert-newline
  47.     insert-string ~n
  48. !endm
  49. store-procedure insert-zero
  50.     insert-string 0
  51. !endm
  52. store-procedure insert-dot
  53.     insert-string .
  54. !endm
  55. macro-to-key insert-leftparen        A-FN^(
  56. macro-to-key insert-rightparen        A-FN^)
  57. macro-to-key insert-slash        A-FN^/
  58. macro-to-key insert-asterisk        A-FN^*
  59. macro-to-key insert-seven        A-FN^7
  60. macro-to-key insert-eight        A-FN^8
  61. macro-to-key insert-nine        A-FN^9
  62. macro-to-key insert-minus        A-FN^-
  63. macro-to-key insert-four        A-FN^4
  64. macro-to-key insert-five        A-FN^5
  65. macro-to-key insert-six            A-FN^6
  66. macro-to-key insert-plus        A-FN^+
  67. macro-to-key insert-one            A-FN^1
  68. macro-to-key insert-two            A-FN^2
  69. macro-to-key insert-three        A-FN^3
  70. macro-to-key insert-newline        A-FN^E
  71. macro-to-key insert-zero        A-FN^0
  72. macro-to-key insert-dot            A-FN^.
  73. bind-to-key  delete-next-character    FNI
  74. bind-to-key  delete-next-character    ^?
  75. bind-to-key  beginning-of-file          FND
  76. bind-to-key  end-of-file                S-FND
  77. bind-to-key  end-of-line                S-FNF
  78. bind-to-key  beginning-of-line          S-FNB
  79. bind-to-key  previous-page              S-FNP
  80. bind-to-key  next-page                  S-FNN
  81.  
  82. macro-to-key  get-help            FNH
  83.  
  84. ;   Rebind some keys:
  85. !force unbind-key ^S
  86. !force unbind-key ^X-S
  87. !force unbind-key ^R
  88. !force unbind-key ^X-R
  89. !force unbind-key ^Z
  90.  
  91. bind-to-key incremental-search ^S
  92. bind-to-key search-forward ^XS
  93. bind-to-key reverse-incremental-search ^R
  94. bind-to-key search-reverse ^XR
  95. bind-to-key query-replace-string M-%
  96.  
  97. set %rctmp &sin $osystem "/"
  98. !if &equ %rctmp 0
  99.     !goto tmpcont
  100. !endif
  101. set %rctmp &mid $osystem %rctmp 6
  102. !if &seq %rctmp "/ AES "
  103. ; If we are running under AES, we also should change
  104. ; the menu-titles...
  105. 301 label-function-key "  Search Forward ^XS"
  106. 302 label-function-key "  Search Backw.  ^XR"
  107. 305 label-function-key "  i-Search Forw.  ^S"
  108. 306 label-function-key "  i-Search Backw. ^R"
  109. 308 label-function-key "  Query Replace  M-%"
  110. !endif
  111. *tmpcont
  112.  
  113. !if &seq &left $osystem 4 "MiNT" 
  114. bind-to-key suspend-emacs ^Z
  115. !endif
  116.  
  117. write-message    "[Numeric keypad defined]"
  118.