🚀 go-pugleaf

In article <1991Feb15.162629.3180@vicorp.com> scott@vicorp.com (Scott Reed) writes:
>I would like to be able to cut and paste with the mouse. I can
>paste but cannot cut. 
>
>I'd like to be able to drag with the left button to mark text, 
>cut with the right button, and paste with the middle one.

The mouse can invoke a wide range of functions.  I load the following when
starting epoch:

(setq auto-raise-screen nil)
(require 'mini-cl)
(require 'wrapper)
(require 'epoch-util)
(require 'epoch)	
(require 'event)
(require 'button)
(require 'mouse)
(require 'motion)
(require 'property)
(require 'message)
(require 'server)		;; not dumped - this will always load
(defun mouse-buffer-other-screen (arg)
  (call-interactively 'find-buffer-other-screen)
  (title (concat (buffer-name (current-buffer)) (sys-name)) (current-screen))
  (icon-name (title) (current-screen))
  (epoch::raise-screen (current-screen))
  )
(defun mouse-file-other-screen (arg)
  (call-interactively 'find-file-other-screen)
  )
(defun mouse-remove-screen (arg)
  (call-interactively 'remove-screen)
  )
(defun mouse-switch-screen (arg)
  (call-interactively 'switch-screen)
  (epoch::raise-screen (current-screen))
  )
(defun mouse-duplicate-screen (arg)
  (call-interactively 'duplicate-screen)
  )
(defun mouse-iconify-screen (arg)
  (call-interactively 'iconify-screen)
  )
(defun mouse-delete-region (arg)
  (call-interactively 'delete-region)
  )
(global-set-mouse mouse-middle mouse-shift 'mouse-delete-region)
(global-set-mouse mouse-left mouse-shift 'mouse-buffer-other-screen)
(global-set-mouse mouse-left mouse-control 'mouse-file-other-screen)
(global-set-mouse mouse-left mouse-control-shift 'mouse-remove-screen)
(global-set-mouse mouse-right mouse-shift 'mouse-switch-screen)
(global-set-mouse mouse-right mouse-control 'mouse-duplicate-screen)
(global-set-mouse mouse-right mouse-control-shift 'mouse-iconify-screen)

-- 
Martin Green                        UUCP     :  ..!torsqnt!ohrd!green
Ontario Hydro Research Division     Telephone:  (416)231-4111 Ext7060
800 Kipling Ave
Toronto, Ontario, CANADA, M8Z5S4