🚀 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.

I'm not sure what exactly you want, but the following code will cause
the mouse right button to cut (and put in the cut buffer) the
currently swept region.

(defun mouse::cut-region (marg)
  (when (buttonp drag-button)
    (mouse::copy-button drag-button)
    (save-excursion (set-buffer (button-buffer drag-button))
      (delete-region (button-start drag-button) (button-end drag-button))
    )
    (delete-button drag-button)
    (setq drag-button nil)
))
(local-set-mouse mouse-right mouse-down 'mouse::cut-region)
(local-set-mouse mouse-right mouse-up nil)


-- 
Alan M. Carroll                "I hate shopping with the reality-impaired"
Epoch Development Team                 - Susan
CS Grad / U of Ill @ Urbana    ...{ucbvax,pur-ee,convex}!cs.uiuc.edu!carroll