(defun drag-cut-copy-paste (start-event)
"Drag and drop editing."
(interactive "e")
(if mark-active
(progn
; track mouse and inert cut/copied text at the mouse up location
)
(progn
(mouse-drag-region start-event)
)
)
)
(global-set-key [(down-mouse-1)] drag-cut-copy-paste)