Re: select text without moving the point in graphical interface

[Ernest Adrogué]

10-12-2013, 20:13 (+0100); Michael Heerdegen escriu:
> Ernest Adrogué <nfdisco@gmail.com> writes:
> 
> > I can't get this to work, because I don't have this `advice-add`
> > function in my Emacs
> 
> Here's the same for the old defadvice:
> 
> --8<---------------cut here---------------start------------->8---
> (defadvice mouse-drag-region (around test activate)
>   (let ((opoint (with-selected-window
>                   (posn-window (event-start (ad-get-arg 0)))
>                 (point))))
>     (prog1 ad-do-it
>       (run-with-idle-timer
>        0 nil
>        (lambda (win pos)
>        (with-selected-window win
>          (deactivate-mark)
>          (goto-char pos)))
>        (selected-window)  opoint))))
> --8<---------------cut here---------------end--------------->8---
> 
> This let's you copy text with the mouse, but disallows to manipulate the
> region with the mouse.

Yes, this is definitely much better. I think I'm going to use it.

Thank you!

Regards.