[elpa] master e7c0fc0 088/110: avy.el (avy-pre-action): New defvar

[Oleh Krehel]

branch: master
commit e7c0fc046dc8b8043c387270cb85824641cd7c08
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy.el (avy-pre-action): New defvar
    
    Fixes #260
---
 avy.el | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/avy.el b/avy.el
index eaade8f..e5e3eaa 100644
--- a/avy.el
+++ b/avy.el
@@ -751,6 +751,19 @@ Set `avy-style' according to COMMMAND as well."
          (when (looking-at-p "\\b")
            (ispell-word)))))))
 
+(defvar avy-pre-action #'avy-pre-action-default
+  "Function to call before `avy-action' is called.")
+
+(defun avy-pre-action-default (res)
+  (avy-push-mark)
+  (when (and (consp res)
+             (windowp (cdr res)))
+    (let* ((window (cdr res))
+           (frame (window-frame window)))
+      (unless (equal frame (selected-frame))
+        (select-frame-set-input-focus frame))
+      (select-window window))))
+
 (defun avy--process-1 (candidates overlay-fn)
   (let ((len (length candidates)))
     (cond ((= len 0)
@@ -793,16 +806,8 @@ Use OVERLAY-FN to visualize the decision overlay."
       ;; ignore exit from `avy-handler-function'
       ((eq res 'exit))
       (t
-       (avy-push-mark)
-       (when (and (consp res)
-                  (windowp (cdr res)))
-         (let* ((window (cdr res))
-                (frame (window-frame window)))
-           (unless (equal frame (selected-frame))
-             (select-frame-set-input-focus frame))
-           (select-window window))
-         (setq res (car res)))
-
+       (funcall avy-pre-action res)
+       (setq res (car res))
        (funcall (or avy-action 'avy-action-goto)
                 (if (consp res)
                     (car res)