home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume4 / gnumacs-blit / part01 / emacs / term / 5620x.el
Text File  |  1989-02-03  |  907b  |  25 lines
  1. ;; 5620_mouse terminal initialization (for Mux)
  2. ;;
  3. ;; unbind "\e[" if bound to a function and bind the arrow and clear keys
  4. ;; on the numeric keypad
  5. ;;
  6. (let ((binding (global-key-binding "\e[")))
  7.   (cond
  8.    ((and (not (null binding))
  9.      (not (keymapp binding)))
  10.     (global-unset-key "\e["))))
  11. ;;
  12. ;;
  13. (global-set-key "\e[D"     'backward-char)         ; left arrow key
  14. (global-set-key "\e[C"     'forward-char)          ; right arrow key
  15. (global-set-key "\e[A"     'previous-line)         ; up arrow key
  16. (global-set-key "\e[B"     'next-line)             ; down arrow key
  17. (global-set-key "\e[H"     'beginning-of-buffer)   ; home arrow key
  18. (global-set-key "\e[F"     'end-of-buffer)         ; home down arrow key
  19. (global-set-key "\e[70;1H" 'end-of-buffer)         ; home down arrow key
  20. (global-set-key "\e[2J"    'redraw-display)        ; clear key
  21. ;;
  22. ;; load the mouse handling stuff
  23. ;;
  24. (load "mega-lilith")
  25.