Re: How to make dragging with mouse 1 not do highlighting or marking?

[Michael Heerdegen]

Hi,

I guess you want something like this:


(defun my-move-cursor (event)
  "Doc..."
  (interactive "e")
  (mouse-set-point event)
  (let (event ov)
    (track-mouse
      (while (progn
               (setq event (read-event))
               (or (mouse-movement-p event)
                   (memq (car-safe event) '(switch-frame select-window))))
        (mouse-set-point event)
        (if ov (move-overlay ov (point)  (1+ (point)))
          (setq ov (make-overlay (point) (1+ (point))))
          (overlay-put ov 'face 'match))))
    (when ov (delete-overlay ov))))

(global-set-key [down-mouse-1] #'my-move-cursor)


Slightly tested.


Regards,

Michael.