[elpa] externals/objed 9558b39 098/216: Add ace char object

[Stefan Monnier]

branch: externals/objed
commit 9558b39e391dad0c8c0c01b7eb384c7ffe9c7c48
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Add ace char object
---
 objed-objects.el | 10 ++++++++++
 objed.el         |  1 +
 test/tests.el    |  6 +++---
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 419c309..5e59125 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -27,6 +27,7 @@
 ;; info for byte-comp
 (declare-function avy--process "ext:avy")
 (declare-function avy--style-fn "ext:avy")
+(declare-function avy-goto-char "ext:avy")
 
 (declare-function sgml-skip-tag-backward "ext:sgml-mode")
 (declare-function sgml-skip-tag-forward "ext:sgml-mode")
@@ -1244,6 +1245,15 @@ property list where each key has an associated progn."
   :try-prev
   (forward-char -1))
 
+(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)))))
+
 
 (objed-define-object nil word
   :atp
diff --git a/objed.el b/objed.el
index 8a6caa0..3cc2fc2 100644
--- a/objed.el
+++ b/objed.el
@@ -863,6 +863,7 @@ To define new operations see `objed-define-op'.")
     (define-key map "l" 'objed-output-object)
     (define-key map "h" 'objed-buffer-object)
 
+    (define-key map "z" 'objed-ace-object)
     ;;  handled by basic movement..
     ;; (define-key map "w" 'objed-word-object)
     ;; (define-key map "l" 'objed-line-object)
diff --git a/test/tests.el b/test/tests.el
index eb3d088..3b9b1cb 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -1,8 +1,10 @@
 (require 'ert)
 (require 'cl-lib)
 (require 'objed)
+;; activate on load
+(objed-mode 1)
 
-;; adapted from  lispy-test.el
+;; defuns adapted from  lispy-test.el
 
 (defun objed--call-object-interactively (o &optional cmd)
   (let* ((cmd (or cmd (objed--name2func o)))
@@ -78,8 +80,6 @@ Insert KEY if there's no command."
              (switch-to-buffer temp-buffer)
              (emacs-lisp-mode)
              (transient-mark-mode 1)
-             ;; activate objed
-             (objed-mode 1)
              (insert ,in)
              (goto-char (point-min))
              (when (search-forward "~" nil t)