extending mouse selection?

extending mouse selection?

[Neal Becker]

I noticed in 23.0.60.1 (cvs) that using the usual X convention:

1.Start mouse selection
2.Move to new position
3. Shift-mouse1 to extend

Doesn't work.  Shift mouse1 brings up a menu.  Should this work?  Is there an alternative key binding?

Re: extending mouse selection?

[Peter Dyballa]

Am 03.10.2008 um 23:11 schrieb Neal Becker:

> Shift mouse1 brings up a menu.

Since last millennium this pops up the font selection menu ... Did  
you use 19th century GNU Emacs until now?

--
Greetings

   Pete

Our enemies are innovative and resourceful, and so are we. They never  
stop thinking about new ways to harm our country and our people, and  
neither do we.
				– Georges W. Bush

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