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

avy.el (avy-resume): Work better for avy-goto-timer

Browse Source 
Fixes #277
This commit is contained in:
Oleh Krehel 2019-06-25 18:19:31 +02:00
parent f91ae613a8
commit aadca9308a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
avy.el
View File

@ -665,7 +665,9 @@ Set `avy-style' according to COMMMAND as well."
(setf (symbol-function 'avy-resume) (setf (symbol-function 'avy-resume)
(lambda () (lambda ()
(interactive) (interactive)
,@body)) ,@(if (eq command 'avy-goto-char-timer)
(cdr body)
body)))
,@body)) ,@body))
(defun avy-action-goto (pt) (defun avy-action-goto (pt)
@ -2061,6 +2063,8 @@ Otherwise, the whole regex is highlighted."
(delete-overlay ov)) (delete-overlay ov))
(avy--done)))) (avy--done))))
(defvar avy--old-cands nil)
;;;###autoload ;;;###autoload
(defun avy-goto-char-timer (&optional arg) (defun avy-goto-char-timer (&optional arg)
"Read one or many consecutive chars and jump to the first one. "Read one or many consecutive chars and jump to the first one.
@ -2070,8 +2074,8 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
(not avy-all-windows) (not avy-all-windows)
avy-all-windows))) avy-all-windows)))
(avy-with avy-goto-char-timer (avy-with avy-goto-char-timer
(avy-process (setq avy--old-cands (avy--read-candidates))
(avy--read-candidates))))) (avy-process avy--old-cands))))
(defun avy-push-mark () (defun avy-push-mark ()
"Store the current point and window." "Store the current point and window."