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

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

[Ian Kelling]

When I hold down mouse-1 and move it around in a buffer, I just want the cursor to 
follow the mouse as I move it. So far, my best guess is to copy mouse-drag-track 
function and remove mark related code.

Thanks,
Ian Kelling

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

[Dmitry Gutov]

Ian Kelling <ianowl@gmail.com> writes:

> When I hold down mouse-1 and move it around in a buffer, I just want the cursor
> to follow the mouse as I move it. So far, my best guess is to copy
> mouse-drag-track function and remove mark related code.

Have you tried rebinding [down-mouse-1] to 'mouse-set-point?

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

[Ian Kelling]

On 12/21/2012 08:58 AM, Dmitry Gutov wrote:
> Ian Kelling <ianowl@gmail.com> writes:
>
>> When I hold down mouse-1 and move it around in a buffer, I just want the cursor
>> to follow the mouse as I move it. So far, my best guess is to copy
>> mouse-drag-track function and remove mark related code.
> Have you tried rebinding [down-mouse-1] to 'mouse-set-point?
>


Yes. It does not update the point location while dragging.

Specifically
(global-set-key (kbd "<down-mouse-1>") 'mouse-set-point)

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

[Stephen Berman]

On Fri, 21 Dec 2012 07:45:50 -0800 Ian Kelling <ianowl@gmail.com> wrote:

> When I hold down mouse-1 and move it around in a buffer, I just want the
> cursor to follow the mouse as I move it. So far, my best guess is to copy
> mouse-drag-track function and remove mark related code.

You might find artist.el useful, specifically the command
artist-down-mouse-1 and the function artist-mouse-draw-continously.

Steve Berman

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

[J. David Boyd]

Ian Kelling <ianowl@gmail.com> writes:

> When I hold down mouse-1 and move it around in a buffer, I just want
> the cursor to follow the mouse as I move it. So far, my best guess is
> to copy mouse-drag-track function and remove mark related code.
>
> Thanks,
> Ian Kelling


Then, why hold down mouse-1?  I mean, the cursor already follow the
mouse around as you move it....

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

[Ian Kelling]

On 12/26/2012 06:11 PM, J. David Boyd wrote:
> Ian Kelling <ianowl@gmail.com> writes:
>
>> When I hold down mouse-1 and move it around in a buffer, I just want
>> the cursor to follow the mouse as I move it. So far, my best guess is
>> to copy mouse-drag-track function and remove mark related code.
>>
>> Thanks,
>> Ian Kelling
>
> Then, why hold down mouse-1?  I mean, the cursor already follow the
> mouse around as you move it....
>

Because I do not want to highlight or select a region. The general idea is to be 
able to more easily identify exactly which character the mouse pointer would act on.

I've changed what I want a bit, and need some help from the elisp gurus out there. 
I want the character that the mouse pointer would act on highlighted all the time, 
not just when I press a button. I was able to get it working when a button was 
pressed down using mouse.el code as an example (and mouse+.el). However, that code 
doesn't work in the background so to speak if I try to just run it from my init file.

The critical example from mouse.el is this:

(track-mouse
              (while (progn (setq event  (read-event))
                            (or (mouse-movement-p event)
                                (memq (car-safe event) '(switch-frame 
select-window))))

How can I run code in which I would update an overlay on all on mouse movement 
events?

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.

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

[Ian Kelling]

On 01/16/2013 08:56 PM, Michael Heerdegen wrote:
> 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)

Yes, that is what I was originally thinking. Thank you. Now I also want an overlay 
to follow the mouse cursor when no button is pressed. I'm having a hard time with 
it. I'm going to post to the list under a new subject to ask about that.

- Ian

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

[Ian Kelling]

On 01/25/2013 12:34 AM, Ian Kelling wrote:
> Yes, that is what I was originally thinking. Thank you. Now I also want an 
> overlay to follow the mouse cursor when no button is pressed. I'm having a hard 
> time with it. I'm going to post to the list under a new subject to ask about that.
>
> - Ian

I figured out the trick to tracking the mouse all the time.
(setq track-mouse t)
and bind to <mouse-movement>