🚀 go-pugleaf

I get the impression that undo still behaves very strangely in
connection with mouse operations.  Naturally, I would like ctrl-middle
to work the same way as in emacs, i.e. cut the region from cursor to
mouse pointer.  I defined:

(defun mouse::cut-region (arg)
  (select-screen (nth 3 arg))
  (select-window (nth 2 arg))
  (extend-mouse-drag arg)
  (kill-region))

(global-set-mouse mouse-middle	mouse-control		'mouse::cut-region)

If I use this function consecutively in two different places in my
buffer and then press undo, both operations are undone.  The behavior
gets more complicated when I use it in more places.

Thank you,
-- 
-Konstantin L"aufer [laufer@cs.nyu.edu] 

        "Kein Atommuell auf den Mars, denn Mars bringt verbrauchte 
        Energie sofort zurueck" -- Herrentoilette, Uni Konstanz