home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / terms / aixterm.el < prev    next >
Encoding:
Text File  |  1991-06-03  |  11.0 KB  |  238 lines
  1. ; Article: 6604 of comp.emacs
  2. ; Path: utkcs2!emory!sol.ctr.columbia.edu!samsung!umich!sharkey!bnlux1.bnl.gov!baron
  3. ; From: baron@bnlux1.bnl.gov (ed baron)
  4. ; Newsgroups: comp.emacs,gnu.emacs.help
  5. ; Subject: aixterm.el
  6. ; Date: 23 Apr 91 18:01:21 GMT
  7. ; Organization: Brookhaven National Laboratory
  8. ; 
  9. ; I am posting this version of aixterm.el which was kindly supplied to
  10. ; me by Milt Epstein.  I don't know where it came from but it does seem
  11. ; to properly define the arrow keys as well as PgUp and PgDn and Ins.
  12. ; 
  13. ; In a windows environment it must be loaded explicitly:
  14. ; 
  15. ;      (if (string-equal (getenv "TERM") "aixterm")
  16. ;      (load-file "/usr/local/emacs-18.57/lisp/aixterm.el"))
  17. ; 
  18. ; and it is a bit slow to load. 
  19. ; 
  20. ; enjoy. -- ed baron (baron@bnlux1.bnl.gov)
  21. ; 
  22. ; 
  23. ; 
  24.  
  25.  
  26.  
  27. ; @(#)hft.el    1.3  com/gnuemacs/lisp/term,3.1,9005 2/6/90 17:16:22
  28. ;;;-------------------------------------------------------------------------
  29. ;;;
  30. ;;;    AIX key bindings for HFT and X
  31. ;;;
  32. ;;;----------------------------------------------------------------
  33.  
  34. (define-key esc-map "[" (make-sparse-keymap))
  35. (global-unset-key "[")
  36.  
  37. ;;;----------------------------------------------------------------
  38. ;;;
  39. ;;; HFT outboard control keys
  40. ;;;
  41. ;;;----------------------------------------------------------------
  42. (global-set-key "[A"    'previous-line)           ;  up
  43. (global-set-key "[161q" 'unassigned)                  ;s-up 
  44. (global-set-key "[162q" 'unassigned)            ;c-up 
  45. (global-set-key "[163q" 'unassigned)              ;a-up 
  46.  
  47. (global-set-key "[B"    'next-line)            ;  down 
  48. (global-set-key "[164q" 'unassigned)                  ;s-down 
  49. (global-set-key "[165q" 'unassigned)            ;c-down 
  50. (global-set-key "[166q" 'unassigned)              ;a-down 
  51.  
  52. (global-set-key "[C"    'forward-char)        ;  right 
  53. (global-set-key "[167q" 'unassigned)          ;s-right 
  54. (global-set-key "[168q" 'unassigned)                ;c-right 
  55. (global-set-key "[169q" 'unassigned)          ;a-right 
  56.  
  57. (global-set-key "[D"    'backward-char)        ;  left 
  58. (global-set-key "[158q" 'unassigned)          ;s-left 
  59. (global-set-key "[159q" 'unassigned)          ;c-left 
  60. (global-set-key "[160q" 'unassigned)          ;a-left 
  61. ;;;----------------------------------------------------------------
  62. (global-set-key "[150q" 'scroll-down)            ;  page up
  63. (global-set-key "[151q" 'unassigned)              ;s-page up
  64. (global-set-key "[152q" 'unassigned)            ;c-page up
  65. (global-set-key "[153q" 'unassigned)              ;a-page up
  66.  
  67. (global-set-key "[154q" 'scroll-up)            ;  page down
  68. (global-set-key "[155q" 'unassigned)            ;s-page down
  69. (global-set-key "[156q" 'unassigned)            ;c-page down
  70. (global-set-key "[157q" 'unassigned)              ;a-page down
  71. ;;;----------------------------------------------------------------
  72. (global-set-key "[H"    'beginning-of-line)        ;  home
  73. (global-set-key "[143q" 'unassigned)          ;s-home
  74. (global-set-key "[144q" 'unassigned)          ;c-home
  75. (global-set-key "[145q" 'unassigned)            ;a-home
  76. ;;;----------------------------------------------------------------
  77. (global-set-key "[146q" 'end-of-line)            ;  end
  78. (global-set-key "[147q" 'unassigned)          ;s-end
  79. (global-set-key "[148q" 'unassigned)          ;c-end
  80. (global-set-key "[149q" 'unassigned)            ;a-end
  81. ;;;----------------------------------------------------------------
  82. (global-set-key "[139q" 'overwrite-mode)         ; insert
  83. (global-set-key "[140q" 'unassigned)          ;c-insert
  84. (global-set-key "[141q" 'unassigned)            ;a-insert
  85. ;;;----------------------------------------------------------------
  86. (global-set-key "[P"    'delete-char)            ;  delete
  87. (global-set-key "[142q" 'unassigned)          ;c-delete
  88. (global-set-key "[M"    'unassigned)          ;a-delete
  89. ;;;----------------------------------------------------------------
  90. (global-set-key "[209q" 'unassigned)          ;  print screen
  91. (global-set-key "[210q" 'unassigned)          ;s-print screen
  92. (global-set-key "[211q" 'unassigned)            ;c-print screen
  93. (global-set-key "[212q" 'unassigned)          ;a-print screen
  94. ;;;----------------------------------------------------------------
  95. (global-set-key "[213q" 'unassigned)          ;  scroll lock
  96. (global-set-key "[214q" 'unassigned)                ;s-scroll lock
  97. (global-set-key "[215q" 'unassigned)          ;c-scroll lock
  98. (global-set-key "[216q" 'unassigned)            ;a-scroll lock
  99. ;;;----------------------------------------------------------------
  100. (global-set-key "[217q" 'unassigned)                ;  pause
  101. (global-set-key "[218q" 'unassigned)            ;s-pause
  102. ;;;----------------------------------------------------------------
  103. (global-set-key "[114q" 'unassigned)                ;  action
  104.  
  105. ;;;----------------------------------------------------------------
  106. ;;;
  107. ;;; HFT PF keys 
  108. ;;;
  109. ;;;----------------------------------------------------------------
  110. (global-set-key "[001q" 'unassigned)            ;  f1
  111. (global-set-key "[002q" 'unassigned)              ;  f2
  112. (global-set-key "[003q" 'unassigned)          ;  f3
  113. (global-set-key "[004q" 'unassigned)               ;  f4
  114. (global-set-key "[005q" 'unassigned)            ;  f5
  115. (global-set-key "[006q" 'unassigned)              ;  f6
  116. (global-set-key "[007q" 'unassigned)            ;  f7
  117. (global-set-key "[008q" 'unassigned)                ;  f8
  118. (global-set-key "[009q" 'unassigned)              ;  f9
  119. (global-set-key "[010q" 'unassigned)          ;  f10
  120. (global-set-key "[011q" 'unassigned)              ;  f11
  121. (global-set-key "[012q" 'unassigned)          ;  f12
  122. ;;;----------------------------------------------------------------
  123. (global-set-key "[013q" 'unassigned)          ;s-f1
  124. (global-set-key "[014q" 'unassigned)          ;s-f2
  125. (global-set-key "[015q" 'unassigned)              ;s-f3
  126. (global-set-key "[016q" 'unassigned)          ;s-f4
  127. (global-set-key "[017q" 'unassigned)            ;s-f5
  128. (global-set-key "[018q" 'unassigned)                  ;s-f6
  129. (global-set-key "[019q" 'unassigned)          ;s-f7
  130. (global-set-key "[020q" 'unassigned)                  ;s-f8
  131. (global-set-key "[021q" 'unassigned)            ;s-f9
  132. (global-set-key "[022q" 'unassigned)            ;s-f10
  133. (global-set-key "[023q" 'unassigned)            ;s-f11
  134. (global-set-key "[024q" 'unassigned)            ;s-f12
  135. ;;;----------------------------------------------------------------
  136. (global-set-key "[025q" 'unassigned)          ;c-f1
  137. (global-set-key "[026q" 'unassigned)            ;c-f2
  138. (global-set-key "[027q" 'unassigned)            ;c-f3
  139. (global-set-key "[028q" 'unassigned)            ;c-f4
  140. (global-set-key "[029q" 'unassigned)            ;c-f5
  141. (global-set-key "[030q" 'unassinged)            ;c-f6
  142. (global-set-key "[031q" 'unassigned)            ;c-f7
  143. (global-set-key "[032q" 'unassigned)            ;c-f8
  144. (global-set-key "[033q" 'unassigned)            ;c-f9
  145. (global-set-key "[034q" 'unassigned)            ;c-f10
  146. (global-set-key "[035q" 'unassigned)            ;c-f11
  147. (global-set-key "[036q" 'unassinged)              ;c-f12
  148. ;;;----------------------------------------------------------------
  149. (global-set-key "[037q" 'unassigned)            ;a-f1
  150. (global-set-key "[038q" 'unassigned)            ;a-f2
  151. (global-set-key "[039q" 'unassigned)            ;a-f3
  152. (global-set-key "[040q" 'unassigned)            ;a-f4
  153. (global-set-key "[041q" 'unassinged)            ;a-f5
  154. (global-set-key "[042q" 'unassigned)            ;a-f6
  155. (global-set-key "[043q" 'unassigned)            ;a-f7
  156. (global-set-key "[044q" 'unassigned)            ;a-f8
  157. (global-set-key "[045q" 'unassigned)            ;a-f9
  158. (global-set-key "[046q" 'unassigned)            ;a-f10
  159. (global-set-key "[047q" 'unassigned)            ;a-f11
  160. (global-set-key "[048q" 'unassigned)            ;a-f12
  161.  
  162. ;;;--------------------------------------------------------------------
  163. ;;;
  164. ;;; Emulate META key with ALT key for AIX
  165. ;;;
  166. ;;;--------------------------------------------------------------------
  167. (define-key global-map "\033[087q" 'backward-sentence)             ;a-a
  168. (define-key global-map "\033[105q" 'backward-word)                 ;a-b 
  169. (define-key global-map "\033[103q" 'capitalize-word)               ;a-c
  170. (define-key global-map "\033[089q" 'kill-word)                     ;a-d
  171. (define-key global-map "\033[076q" 'forward-sentence)              ;a-e
  172. (define-key global-map "\033[090q" 'forward-word)                  ;a-f
  173. (define-key global-map "\033[091q" 'fill-region)                   ;a-g
  174. (define-key global-map "\033[092q" 'mark-paragraph)                ;a-h
  175. (define-key global-map "\033[081q" 'tab-to-tab-stop)               ;a-i
  176. (define-key global-map "\033[093q" 'indent-new-comment-line)        ;a-j 
  177. (define-key global-map "\033[094q" 'kill-sentence)                 ;a-k
  178. (define-key global-map "\033[095q" 'downcase-word)                ;a-l 
  179. (define-key global-map "\033[107q" 'back-to-indentation)        ;a-m 
  180. (define-key global-map "\033[106q" 'unassigned)               ;a-n 
  181. (define-key global-map "\033[082q" 'unassigned)                ;a-o 
  182. (define-key global-map "\033[083q" 'unassigned)                 ;a-p 
  183. (define-key global-map "\033[074q" 'fill-paragraph)                ;a-q 
  184. (define-key global-map "\033[077q" 'move-to-window-line)        ;a-r 
  185. (define-key global-map "\033[088q" 'unassigned)                 ;a-s 
  186. (define-key global-map "\033[078q" 'transpose-words)               ;a-t 
  187. (define-key global-map "\033[080q" 'upcase-word)                 ;a-u 
  188. (define-key global-map "\033[104q" 'scroll-down)                 ;a-v 
  189. (define-key global-map "\033[075q" 'copy-region-as-kill)        ;a-w 
  190. (define-key global-map "\033[102q" 'execute-extended-command)        ;a-x 
  191. (define-key global-map "\033[079q" 'yank-pop)                 ;a-y 
  192. (define-key global-map "\033[101q" 'zap-to-char)              ;a-z 
  193.  
  194. ;;;------------------------------------------------------------------------------
  195. ;;;
  196. ;;; The HFT support does not allow the ALT, SHIFT, and CONTROL keys to 
  197. ;;; be combined.  The following attempts to map the ALT-key to the best 
  198. ;;; mapping without SHIFT and CONTROL conbinations
  199. ;;;
  200. ;;;------------------------------------------------------------------------------
  201. (define-key global-map "\033[115q" 'not-modified)                   ;a-~ 
  202. (define-key global-map "\033[058q" 'shell-command)                  ;a-! 
  203. (define-key global-map "\033[059q" 'mark-word)                      ;a-@
  204. (define-key global-map "\033[060q" 'unassigned)                    ;a-#
  205. (define-key global-map "\033[061q" 'spell-word)                     ;a-$
  206. (define-key global-map "\033[062q" 'query-replace)                  ;a-%
  207. (define-key global-map "\033[063q" 'delete-indentation)             ;a-^
  208. (define-key global-map "\033[064q" 'unassigned)                     ;a-&
  209. (define-key global-map "\033[065q" 'unassigned)                            ;a-*
  210. (define-key global-map "\033[066q" 'insert-parentheses)             ;a-(
  211. (define-key global-map "\033[067q" 'move-past-close-and-reindent)    ;a-)
  212. (define-key global-map "\033[068q" 'negative-argument)                ;a--
  213. (define-key global-map "\033[070q" 'count-lines-region)                ;a-=
  214. (define-key global-map "\033[084q" 'backward-paragraph)                ;a-[
  215. (define-key global-map "\033[085q" 'forward-paragraph)                ;a-]
  216. (define-key global-map "\033[086q" 'shell-command-on-region)            ;a-|
  217.  
  218. (define-key global-map "\033[097q" 'indent-for-comment)                ;a-;
  219. (define-key global-map "\033[099q" 'abbrev-prefix-mark)                ;a-'
  220.  
  221. (define-key global-map "\033[109q" 'beginning-of-buffer)            ;a-<
  222. (define-key global-map "\033[111q" 'end-of-buffer)                ;a->
  223. (define-key global-map "\033[113q" 'dabbrev-expand)                ;a-/
  224.  
  225. (define-key global-map "\033[071q" 'backward-kill-word)                ;a-bsp
  226.  
  227. ;;;---------------------------------------------------------------------------
  228. ;;; use private key remapping is .emacskeys file in $HOME directory
  229. ;;;---------------------------------------------------------------------------
  230.  
  231. (if (file-readable-p "~/.emacskeys") (load-file "~/.emacskeys"))
  232.  
  233. ;;;---------------------------------------------------------------------------
  234. ;;; end of key definitions 
  235. ;;;---------------------------------------------------------------------------
  236.  
  237.  
  238.