all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#51557: 27.2; `mouse-1' with `cua-rectangle-mark-mode'
@ 2021-11-01 19:14 Drew Adams
  2021-11-04 18:35 ` Lars Ingebrigtsen
  0 siblings, 1 reply; 4+ messages in thread
From: Drew Adams @ 2021-11-01 19:14 UTC (permalink / raw)
  To: 51557

I don't use `cua-rectangle-mark-mode'.  I just happened upon this
behavior, and found it odd (bugged?).  Feel free to close if you
think this isn't problematic.

emacs -Q

M-x cua-rectangle-mark-mode ; (after selecting a region or not)

Click `mouse-1' somewhere.  No effect, it seems.  The mode remains in
effect (same key help is displayed).

Click `mouse-1' again (anywhere).  It seems that that exits
`cua-rectangle-mode'.

Should `mouse-1' do something for this mode?  (`mouse-3' apparently
extends the rectangle.)  Should it exit on first click?  Should you get
some feedback of whatever it does?

`rectangle-mark-mode' also lets `mouse-3' extend the rectangle.  But for
it, `mouse-1' apparently exits the mode.

That seems more reasonable.  But perhaps the mode should be continued
and `mouse-1' should just reinitialize it (set its starting point).
(The normal behavior of `mouse-1' is, after all, to set point.)

In GNU Emacs 27.2 (build 1, x86_64-w64-mingw32)
 of 2021-03-26 built on CIRROCUMULUS
Repository revision: deef5efafb70f4b171265b896505b92b6eef24e6
Repository branch: HEAD
Windowing system distributor 'Microsoft Corp.', version 10.0.19042
System Description: Microsoft Windows 10 Pro (v10.0.2009.19042.1288)





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#51557: 27.2; `mouse-1' with `cua-rectangle-mark-mode'
  2021-11-01 19:14 bug#51557: 27.2; `mouse-1' with `cua-rectangle-mark-mode' Drew Adams
@ 2021-11-04 18:35 ` Lars Ingebrigtsen
  2021-11-04 18:47   ` bug#51557: [External] : " Drew Adams
  2021-12-04  3:06   ` Lars Ingebrigtsen
  0 siblings, 2 replies; 4+ messages in thread
From: Lars Ingebrigtsen @ 2021-11-04 18:35 UTC (permalink / raw)
  To: Drew Adams; +Cc: 51557

Drew Adams <drew.adams@oracle.com> writes:

> M-x cua-rectangle-mark-mode ; (after selecting a region or not)
>
> Click `mouse-1' somewhere.  No effect, it seems.  The mode remains in
> effect (same key help is displayed).
>
> Click `mouse-1' again (anywhere).  It seems that that exits
> `cua-rectangle-mode'.

It seems like the intention is to re-start the rectangle on mouse-1?  I
don't use the mode either, but that does seem to make sense to me.

(defun cua-mouse-set-rectangle-mark (event)
  "Start rectangle at mouse click position."
  (interactive "e")
  (when cua--rectangle
    (cua--deactivate-rectangle)
    (cua--deactivate t))
  (setq cua--last-rectangle nil)
  (mouse-set-point event)
  ;; FIX ME -- need to calculate virtual column.
  (cua-set-rectangle-mark)
  (setq cua--buffer-and-point-before-command nil)
  (setq cua--mouse-last-pos nil))

And I guess the "FIX ME" is part of the problem here.  Anybody else got
any insights here?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#51557: [External] : Re: bug#51557: 27.2; `mouse-1' with `cua-rectangle-mark-mode'
  2021-11-04 18:35 ` Lars Ingebrigtsen
@ 2021-11-04 18:47   ` Drew Adams
  2021-12-04  3:06   ` Lars Ingebrigtsen
  1 sibling, 0 replies; 4+ messages in thread
From: Drew Adams @ 2021-11-04 18:47 UTC (permalink / raw)
  To: Lars Ingebrigtsen; +Cc: 51557@debbugs.gnu.org

> > M-x cua-rectangle-mark-mode ; (after selecting a region or not)
> >
> > Click `mouse-1' somewhere.  No effect, it seems.  The mode remains in
> > effect (same key help is displayed).
> >
> > Click `mouse-1' again (anywhere).  It seems that that exits
> > `cua-rectangle-mode'.
> 
> It seems like the intention is to re-start the rectangle on mouse-1?  I
> don't use the mode either, but that does seem to make sense to me.
> 
> (defun cua-mouse-set-rectangle-mark (event)
>   "Start rectangle at mouse click position."
>   (interactive "e")
>   (when cua--rectangle
>     (cua--deactivate-rectangle)
>     (cua--deactivate t))
>   (setq cua--last-rectangle nil)
>   (mouse-set-point event)
>   ;; FIX ME -- need to calculate virtual column.
>   (cua-set-rectangle-mark)
>   (setq cua--buffer-and-point-before-command nil)
>   (setq cua--mouse-last-pos nil))
> 
> And I guess the "FIX ME" is part of the problem here.  Anybody else got
> any insights here?

Whatever you decide, I suggest that (other things being
equal), the same behavior be added to `rectangle-mark-mode'.

(It seems to me that mouse-1 could do something useful
here.  Maybe that would be a simple as exiting (as in
`rectangle-mark-mode' or as simple as restarting a
rectangle.  Or maybe it could be something more helpful
or more interesting (I don't have any suggestion, off
the top of my head.).





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#51557: 27.2; `mouse-1' with `cua-rectangle-mark-mode'
  2021-11-04 18:35 ` Lars Ingebrigtsen
  2021-11-04 18:47   ` bug#51557: [External] : " Drew Adams
@ 2021-12-04  3:06   ` Lars Ingebrigtsen
  1 sibling, 0 replies; 4+ messages in thread
From: Lars Ingebrigtsen @ 2021-12-04  3:06 UTC (permalink / raw)
  To: Drew Adams; +Cc: 51557

Lars Ingebrigtsen <larsi@gnus.org> writes:

> It seems like the intention is to re-start the rectangle on mouse-1?  I
> don't use the mode either, but that does seem to make sense to me.

So I've now made it do this in Emacs 29.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no





^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2021-12-04  3:06 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2021-11-01 19:14 bug#51557: 27.2; `mouse-1' with `cua-rectangle-mark-mode' Drew Adams
2021-11-04 18:35 ` Lars Ingebrigtsen
2021-11-04 18:47   ` bug#51557: [External] : " Drew Adams
2021-12-04  3:06   ` Lars Ingebrigtsen

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.