bug#56530: 29.0.50; mouse-2 cut selected text when cua-mode is enabled

[Visuwesh]

[Wednesday July 13, 2022] David Ponce wrote:

> On 13/07/2022 11:50, Visuwesh wrote:
>> You can disable the new behaviour by saying,
>>      (put 'mouse-yank-primary 'delete-selection nil)
>>      (put 'mouse-yank-secondary 'delete-selection nil)
>>      (put 'mouse-yank-at-click 'delete-selection nil)
>> But I guess, it sure didn't take long for the complaints to come in
> Maybe the behavior could be disabled for cua-mode to be consistent
> with CUA expected behavior? After all, cua-mode is more than just
> delete-selection-mode ;-)
>
> Thanks
> [resent, forgot to CC the bug list]

Thankfully delete-selection-mode is sufficiently flexible to allow this.
We just need to replace the (put 'mouse-yank-primary 'delete-selection t)
in delsel.el with the following,

    (put 'mouse-yank-primary 'delete-selection
        (lambda ()
          (if (or cua-mode (null mouse-yank-at-point))
               nil
             'yank)))

[ Disclaimer: I didn't test it.  ]