usr.sbin/pcvt/Misc/Etc/pcvt.el

   1 ;; pcvt25.el, by J"org Wunsch <joerg_wunsch@uriah.sax.de>
   2 ;;
   3 ;; pcvt is a good VT emulator
   4
   5 (load "term/vt220")
   6
   7 ;; ...but i don't like `find' and `select' on `home' and `end' keys
   8 (global-set-key [find] 'beginning-of-line)
   9 (global-set-key [select] 'end-of-line)
  10
  11 ;; and the f1 thru f8 keys are designated as f6 thru f13
  12 (define-key function-key-map "\e[17~" [f1])
  13 (define-key function-key-map "\e[18~" [f2])
  14 (define-key function-key-map "\e[19~" [f3])
  15 (define-key function-key-map "\e[20~" [f4])
  16 (define-key function-key-map "\e[21~" [f5])
  17 (define-key function-key-map "\e[23~" [f6])
  18 (define-key function-key-map "\e[24~" [f7])
  19 (define-key function-key-map "\e[25~" [f8])