branch: externals/objed
commit a2cbe3b296b62e3160488d6d36d89a0b37be6001
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
Create fake cursors when using insertion op for marked objects
---
objed.el | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/objed.el b/objed.el
index 38aa7eb..30d16ab 100644
--- a/objed.el
+++ b/objed.el
@@ -392,6 +392,9 @@ To avoid loading `avy' set this var before activating
`objed-mode.'"
(declare-function electric-pair-syntax-info "ext:elec-pair")
(declare-function hl-line-unhighlight "ext:hl-line")
(declare-function hl-line-highlight "ext:hl-line")
+(declare-function mc/create-fake-cursor-at-point "ext:multiple-cursors")
+
+
@@ -2569,7 +2572,7 @@ With prefix arg REG non nil ask for register."
(defun objed-del-insert ()
"Delete current object and exit to insert state."
(interactive)
- (objed--do #'delete-region)
+ (objed--do #'delete-region 'mc)
(objed--exit-objed))
(defvar objed--electric-event nil
@@ -3450,6 +3453,10 @@ and RANGE hold the object position data."
(let ((exitf (cdr (assq exit objed--exit-alist))))
(cond ((eq 'keep exit)
(ignore))
+ ((eq 'mc exit)
+ (when (fboundp 'mc/maybe-multiple-cursors-mode)
+ (mc/maybe-multiple-cursors-mode))
+ (objed--exit-objed))
((eq 'current exit)
;; use the markers for updated object
(objed--update-current-object
@@ -3596,7 +3603,10 @@ ON got applied."
"Apply ACTION on marked objects and exit with EXIT."
(let ((ovs objed--marked-ovs)
(appendp (memq action '(kill-region copy-region-as-kill)))
- (n 0))
+ (n 0)
+ (mc (and (eq exit 'mc)
+ (require 'multiple-cursors nil t)))
+ (pos (point)))
(save-excursion
(dolist (ov (nreverse (copy-sequence ovs)))
(let ((beg (overlay-start ov))
@@ -3604,6 +3614,9 @@ ON got applied."
(when (and beg end)
(goto-char beg)
(funcall action beg end)
+ (when (and mc
+ (not (= pos (point))))
+ (mc/create-fake-cursor-at-point))
(cl-incf n))
(when appendp
(setq last-command 'kill-region))
