home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / mity-mouse / buff-setup.el < prev    next >
Encoding:
Text File  |  1993-03-28  |  2.6 KB  |  95 lines
  1. ; Setup code to allow special mouse bindings in Buffer-menu mode.  Mostly
  2. ; just provides a batch of functions to bind to mouse keys which first move
  3. ; point to beginning of mouse line, then invoke the normal buffer menu
  4. ; function.
  5. ;
  6. ; No default bindings are given, you will have to invent those yourself,
  7. ; then hang a function off buffer-menu-mode-hook to setup the binding.
  8. ;
  9. ; tahorsley@ssd.csd.harris.com (Tom Horsley)
  10. ; Dec 26, 1989
  11. ;
  12.  
  13. (provide 'buff-setup)
  14.  
  15. (defun x-buffer-menu (arg)
  16. "Enter buffer menu mode from a mouse function key."
  17.    (buffer-menu)
  18. )
  19.  
  20. (defun x-Buffer-menu-select (arg)
  21.   "Select mouse line's buffer; also display buffers marked with \">\".
  22. You can mark buffers with the \\[Buffer-menu-mark] command."
  23.    (x-mouse-set-point arg)
  24.    (beginning-of-line 1)
  25.    (Buffer-menu-select)
  26. )
  27.  
  28. (defun x-Buffer-menu-2-window (arg)
  29.   "Select mouse line's buffer, with previous buffer in second window."
  30.    (x-mouse-set-point arg)
  31.    (beginning-of-line 1)
  32.    (Buffer-menu-2-window)
  33. )
  34.  
  35. (defun x-Buffer-menu-1-window (arg)
  36.   "Select mouse line's buffer, alone, in full screen."
  37.    (x-mouse-set-point arg)
  38.    (beginning-of-line 1)
  39.    (Buffer-menu-1-window)
  40. )
  41.  
  42. (defun x-Buffer-menu-this-window (arg)
  43.   "Select mouse line's buffer in this window."
  44.    (x-mouse-set-point arg)
  45.    (beginning-of-line 1)
  46.    (Buffer-menu-this-window)
  47. )
  48.  
  49. (defun x-Buffer-menu-other-window (arg)
  50.   "Select mouse line's buffer in other window, leaving buffer menu visible."
  51.    (x-mouse-set-point arg)
  52.    (beginning-of-line 1)
  53.    (Buffer-menu-other-window)
  54. )
  55.  
  56. (defun x-Buffer-menu-save (arg)
  57.   "Mark buffer on mouse line to be saved by \\[Buffer-menu-execute] command."
  58.    (x-mouse-set-point arg)
  59.    (beginning-of-line 1)
  60.    (Buffer-menu-save)
  61. )
  62.  
  63. (defun x-Buffer-menu-delete (arg)
  64.   "Mark buffer on mouse line to be deleted by \\[Buffer-menu-execute] command."
  65.    (x-mouse-set-point arg)
  66.    (beginning-of-line 1)
  67.    (Buffer-menu-delete)
  68. )
  69.  
  70. (defun x-Buffer-menu-not-modified (arg)
  71.   "Mark buffer on mouse line as unmodified (no changes to save)."
  72.    (x-mouse-set-point arg)
  73.    (beginning-of-line 1)
  74.    (Buffer-menu-not-modified)
  75. )
  76.  
  77. (defun x-Buffer-menu-unmark (arg)
  78.   "Cancel all requested operations on buffer on mouse line."
  79.    (x-mouse-set-point arg)
  80.    (beginning-of-lineBuffer-menu-execute 1)
  81.    (Buffer-menu-unmark)
  82. )
  83.  
  84. (defun x-Buffer-menu-mark (arg)
  85.   "Mark buffer on mouse line for being displayed by \\[Buffer-menu-select] command."
  86.    (x-mouse-set-point arg)
  87.    (beginning-of-line 1)
  88.    (Buffer-menu-mark)
  89. )
  90.  
  91. (defun x-Buffer-menu-execute (arg)
  92.   "Save and/or delete buffers marked with \\[Buffer-menu-save] or \\[Buffer-menu-delete] commands."
  93.    (Buffer-menu-execute)
  94. )
  95.