[elpa] externals/objed e771f06 14/59: Improve ace object

[Clemens Radermacher]

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

    Improve ace object
---
 objed-objects.el | 11 +++++------
 objed.el         |  2 +-
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 6465df1..498c462 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1421,12 +1421,11 @@ comments."
 
 (objed-define-object nil ace
   :get-obj
-  (avy-goto-char (read-event "Ace to char: "))
-  (objed-make-object
-   :beg (point)
-   :ibeg (point)
-   :end (if (eobp) (point) (1+ (point)))
-   :iend (if (eobp) (point) (1+ (point)))))
+  (let ((pos (1+ (point))))
+    (avy-goto-char (read-event "Ace to char: "))
+    (objed-make-object
+     :beg (point)
+     :end pos)))
 
 (objed-define-object nil trailing
   :atp
diff --git a/objed.el b/objed.el
index ee32bc7..e7317b9 100644
--- a/objed.el
+++ b/objed.el
@@ -921,7 +921,7 @@ To define new operations see `objed-define-op'.")
     (define-key map "[" 'objed-page-object)
     (define-key map "p" 'objed-output-object)
     (define-key map "h" 'objed-buffer-object)
-    ;; (define-key map "z" 'objed-ace-object)
+    (define-key map "z" 'objed-ace-object)
     map)
   "Keymap used for additional text-objects by `objed'.