home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / mity-mouse / buff-mouse.el next >
Encoding:
Text File  |  1993-03-28  |  888 b   |  23 lines
  1. ; My bindings for buffer menu mode mouse map
  2.  
  3. (require 'buff-setup)
  4.  
  5. (defvar buffer-menu-mode-mouse-map (make-keymap)
  6. "Local mouse map for use in buffer menu mode."
  7. )
  8.  
  9. (define-key buffer-menu-mode-mouse-map x-button-left 'x-Buffer-menu-1-window)
  10. (define-key buffer-menu-mode-mouse-map x-button-right 'x-Buffer-menu-this-window)
  11. (define-key buffer-menu-mode-mouse-map x-button-middle 'x-Buffer-menu-other-window)
  12. (define-key buffer-menu-mode-mouse-map x-button-c-left 'x-Buffer-menu-delete)
  13. (define-key buffer-menu-mode-mouse-map x-button-c-right 'x-Buffer-menu-unmark)
  14. (define-key buffer-menu-mode-mouse-map x-button-c-middle 'x-Buffer-menu-execute)
  15.  
  16. (defun x-add-buffer-menu-mouse ()
  17. "Add mouse bindings for buffer menu mode to local-mouse-map"
  18.    (x-split-mouse-maps)
  19.    (x-use-local-mouse-map buffer-menu-mode-mouse-map)
  20. )
  21.  
  22. (setq buffer-menu-mode-hook (list 'x-add-buffer-menu-mouse))
  23.