bug#9541: Acknowledgement (mouse-1 inside scroll-margin causes undesirable region activation)

[Le Wang]

Here is my work-around.  I don't fully understand the ramifications of
doing this, but so far it seems work.

(defun le::mouse-drag-region (event)
  "mouse-drag-region but clickable in scroll-margin"
  (interactive "e")
  (let ((scroll-margin 0))
    (mouse-drag-region event)))

(global-set-key [(down-mouse-1)] 'le::mouse-drag-region)

-- 
Le