diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-04 04:06:27 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-04 04:07:06 +0100 |
| commit | b060c3844fb8ad5a134d160a844c5bf898024d15 (patch) | |
| tree | f25ba91a6b471502a6a6e6df29bbaf0def2d62ea | |
| parent | be1359884f68a3c8f8041be5579e6c5268d42d9a (diff) | |
| download | emacs-b060c3844fb8ad5a134d160a844c5bf898024d15.tar.gz | |
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).
| -rw-r--r-- | lisp/emulation/cua-rect.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 65ae2f192fa..7df45e705d3 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. |