[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: How to make dragging with mouse 1 not do highlighting or marking?
From: |
Michael Heerdegen |
Subject: |
Re: How to make dragging with mouse 1 not do highlighting or marking? |
Date: |
Thu, 17 Jan 2013 05:56:27 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.2.92 (gnu/linux) |
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.