branch: externals/objed
commit d36e2773d84669572a13710085ce9d4d1e3e2306
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Don't support objed-extend with marked objects
---
objed.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/objed.el b/objed.el
index d127800..94fb001 100644
--- a/objed.el
+++ b/objed.el
@@ -2383,6 +2383,8 @@ objed movement commands.
The active region will be used as the current object when an
objed operation is used."
(interactive)
+ (when objed--marked-ovs
+ (user-error "objed-extend: Currently not supported with marked objects"))
(if (region-active-p)
(if (fboundp 'er/expand-region)
(call-interactively 'er/expand-region)
@@ -4003,11 +4005,7 @@ ON got applied."
(defun objed--do-objects (action exit)
"Apply ACTION on marked objects and exit with EXIT."
- (let* ((ovs (if (use-region-p)
- (cons (make-overlay (region-beginning)
- (region-end))
- (copy-sequence objed--marked-ovs))
- (copy-sequence objed--marked-ovs)))
+ (let* ((ovs (copy-sequence objed--marked-ovs))
(appendp (memq action '(kill-region copy-region-as-kill)))
(n 0)
(mc (and (eq exit 'mc)
