ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 05:23:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add avy-action-oneshot variable to redefine avy-action locally

Browse Source 
Could be used this way:

```elisp
(let ((avy-action-oneshot #'push-button))
  (avy-goto-char-timer))
```
This commit is contained in:
aragaer 2022-08-25 16:44:54 +03:00
parent ba5f035be3
commit fd7b02f556
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
avy.el
View File

@ -455,6 +455,9 @@ KEYS is the path from the root of `avy-tree' to LEAF."
(defvar avy-action nil
"Function to call at the end of select.")
(defvar avy-action-oneshot nil
"Function to call once at the end of select.")
(defun avy-handler-default (char)
"The default handler for a bad CHAR."
(let (dispatch)
@ -890,10 +893,12 @@ multiple OVERLAY-FN invocations."
(t
(funcall avy-pre-action res)
(setq res (car res))
(funcall (or avy-action 'avy-action-goto)
(let ((action (or avy-action avy-action-oneshot 'avy-action-goto)))
(setq avy-action-oneshot nil)
(funcall action
(if (consp res)
(car res)
res))
res)))
res))))
(define-obsolete-function-alias 'avy--process 'avy-process