Re: extending mouse selection?

[Nikolaj Schumacher]

Neal Becker <ndbecker2@gmail.com> wrote:

> Should this work?

Emacs doesn't necessarily follow such conventions.
One could argue, however, that it should work at least in cua-mode.  You
could report it as a bug and see what happens.

> Is there an alternative key binding?

I don't know, but writing your own command is pretty straight-forward:

(defun mouse-extend-region (event)
  (interactive "e")
  (let ((pos (posn-point (event-start event))))
    (set-mark (if mark-active
                  (if (< pos (region-beginning))
                      (region-end)
                    (region-beginning))
                (point)))
    (goto-char pos)))

(global-set-key (kbd "<S-mouse-1>") 'mouse-extend-region)
(global-set-key (kbd "<S-down-mouse-1>") nil)

regards,
Nikolaj Schumacher