home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / mity-mouse / info-setup.el < prev    next >
Encoding:
Text File  |  1993-03-28  |  1.3 KB  |  42 lines
  1. ;; X-window specific setup code for info-mouse.el This is just a small file
  2. ;; of glue to paste together the info-mouse package and the mighty-mouse
  3. ;; package.
  4. ;;
  5. ;; tahorsley@ssd.csd.harris.com (Tom Horsley)
  6. ;; Dec 26, 1989
  7.  
  8. (require 'info-mouse)
  9. (require 'mighty-mouse)
  10.  
  11. ; Setup the keys for bopping around info tree. Since middle button is
  12. ; normally paste, and you are not likely to be pasting into an info buffer,
  13. ; re-use it for the info browser.
  14.  
  15. (defvar Info-mode-mouse-map (make-keymap)
  16. "map to be used as local mouse map when in info mode."
  17. )
  18. (define-key Info-mode-mouse-map x-button-middle 'x-Info-mouse)
  19. (define-key Info-mode-mouse-map x-button-c-middle 'x-Info-mouse-meta)
  20.  
  21. (defun Info-mouse-setup-mode ()
  22.    (x-use-local-mouse-map Info-mode-mouse-map)
  23. )
  24.  
  25. (defun x-mouse-info-set-point ()
  26. "Digs up last mouse position and calls x-mouse-set-point with it."
  27.    (x-mouse-set-point x-mouse-pos)
  28. )
  29.  
  30. (defun x-Info-mouse (arg)
  31. "Move forward through the info network by clicking the mouse. In a header
  32. or menu item, moves to that item. At the end of the screen pages to the
  33. next screen or the next item if at end of item."
  34.    (Info-mouse)
  35. )
  36.  
  37. (defun x-Info-mouse-meta (arg)
  38. "Move backward through the info network by clicking the mouse. At end of
  39. screen will go to previous page of note or previous item."
  40.    (Info-mouse-meta)
  41. )
  42.