diff options
Diffstat (limited to 'lisp/emulation/cua-rect.el')
-rw-r--r-- | lisp/emulation/cua-rect.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 0039092fd6e..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. @@ -710,9 +708,11 @@ Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear." (nreverse rect))) (defun cua--insert-rectangle (rect &optional below paste-column line-count) - "Insert rectangle as insert-rectangle, but don't set mark and exit with + "Insert rectangle RECT similarly to `insert-rectangle'. +In contrast to `insert-rectangle', don't set mark and exit with point at either next to top right or below bottom left corner -Notice: In overwrite mode, the rectangle is inserted as separate text lines." + +Note: In overwrite mode, the rectangle is inserted as separate text lines." (if (eq below 'auto) (setq below (and (bolp) (or (eolp) (eobp) (= (1+ (point)) (point-max)))))) |