[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed a2cbe3b 015/166: Create fake cursors when using i
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed a2cbe3b 015/166: Create fake cursors when using insertion op for marked objects |
Date: |
Sun, 29 Dec 2019 08:20:52 -0500 (EST) |
branch: externals/objed
commit a2cbe3b296b62e3160488d6d36d89a0b37be6001
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
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))
- [elpa] externals/objed ae830b8 005/166: Improve block expansion for org mode, (continued)
- [elpa] externals/objed ae830b8 005/166: Improve block expansion for org mode, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed c9a91b5 006/166: Rename objed-electric to objed-electric-event, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed e35d7b8 001/166: Fix objed-object-activate for the case which-key isn't active, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 40f5799 007/166: Don't reinit when op exited objed, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 9376f3d 004/166: Use block object for backward-element in org mode, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 36bddbd 009/166: Fix map staying active when op exited objed, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 225267f 011/166: Don't reinit on object dispatch when objed is active, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed c9d4f12 013/166: Don't always update current object with marker positions, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 3d6f50b 012/166: Fix some indent operation issues, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 87da25e 018/166: Fix mc available test on exit, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed a2cbe3b 015/166: Create fake cursors when using insertion op for marked objects,
Clemens Radermacher <=
- [elpa] externals/objed cb1a6ca 019/166: Add continuation object feature, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 6a91b16 023/166: Improve mc exit behavior, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 4de1520 008/166: Improve paren insertion and wrapping in lisp modes, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 25111a3 010/166: Dont check buffer whe objed--buffer is gone, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 333b58c 014/166: Change indentation object to include leading ws, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 89e1e18 016/166: Also activate mc if only one fake cursor, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 0cb2593 017/166: Tweak sexp object, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed dc673b8 022/166: Fix for mc counting non fake cursor as cursor, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 252a1d3 021/166: For brackets, strings and comments switch to sexp on continuation, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 0fa1ea3 024/166: Default to sexp for continuation object, Clemens Radermacher, 2019/12/29