master b060c38: Make `mouse-1' restart the cua-rect rectangle

[Lars Ingebrigtsen]

branch: master
commit b060c3844fb8ad5a134d160a844c5bf898024d15
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make `mouse-1' restart the cua-rect rectangle
    
    * lisp/emulation/cua-rect.el (cua-mouse-set-rectangle-mark):
    Restart the rectangle on mouse-1 (bug#51557).
---
 lisp/emulation/cua-rect.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 65ae2f1..7df45e7 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -486,10 +486,8 @@ Activates the region if needed.  Only lasts until the 
region is deactivated."
     (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))
+  (activate-mark)
+  (cua-rectangle-mark-mode))
 
 (defun cua-mouse-save-then-kill-rectangle (event arg)
   "Expand rectangle to mouse click position and copy rectangle.