Re: select text without moving the point in graphical interface

[Michael Heerdegen]

Ernest Adrogué <nfdisco@gmail.com> writes:

> >   (info "(emacs) Secondary Selection")
>
> Yeah, this is exactly it.  Now I guess the question is can I have the
> secondary selection text selection style but using the primary selection
> instead?

It's not intended to do so, I'm afraid; using the secondary selection is
hardcoded for that stuff.

Mmh, maybe we should try to modify the default mouse-1 behavior
instead.  Can you try the following:

--8<---------------cut here---------------start------------->8---
(defun mouse-drag-region-restore-point-advice (f e)
  (let ((opoint (with-selected-window
                    (posn-window (event-start e))
                  (point))))
    (prog1 (funcall f e)
      (run-with-idle-timer
       0 nil
       (lambda (win pos)
         (with-selected-window win
           (deactivate-mark)
           (goto-char pos)))
       (selected-window)  opoint))))

(advice-add 'mouse-drag-region
            :around #'mouse-drag-region-restore-point-advice)
--8<---------------cut here---------------end--------------->8---

Does that behave as you want it to?


Regards,

Michael.