[elpa] externals/objed d43aad1 55/59: Change ace object to select by lines

[Clemens Radermacher]

branch: externals/objed
commit d43aad15e3c917dc2ce91e151e28c588c8eecd41
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Change ace object to select by lines
---
 objed-objects.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 37299f2..1e27ca6 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1436,11 +1436,12 @@ comments."
 
 (objed-define-object nil ace
   :get-obj
-  (let ((pos (1+ (point))))
-    (avy-goto-char (read-event "Ace to char: "))
-    (objed-make-object
-     :beg (point)
-     :end pos)))
+  ;; TODO: buffer stripes
+  (objed-make-object
+   :beg (save-excursion (call-interactively 'avy-goto-line)
+                        (line-beginning-position))
+   :end (save-excursion (call-interactively 'avy-goto-line)
+                        (1+ (line-end-position)))))
 
 (objed-define-object nil trailing
   :atp