diff --git a/avy.el b/avy.el index 92fbc78..527479f 100644 --- a/avy.el +++ b/avy.el @@ -518,13 +518,14 @@ multiple DISPLAY-FN invocations." (funcall cleanup-fn) (if (setq window (avy-mouse-event-window char)) (throw 'done (cons char window)) - ;; Ensure avy-current-path stores the full path prior to - ;; exit so other packages can utilize its value. - (setq avy-current-path - (concat avy-current-path (string (avy--key-to-char char)))) (if (setq branch (assoc char tree)) - (if (eq (car (setq tree (cdr branch))) 'leaf) - (throw 'done (cdr tree))) + (progn + ;; Ensure avy-current-path stores the full path prior to + ;; exit so other packages can utilize its value. + (setq avy-current-path + (concat avy-current-path (string (avy--key-to-char char)))) + (if (eq (car (setq tree (cdr branch))) 'leaf) + (throw 'done (cdr tree)))) (funcall avy-handler-function char))))))) (defun avy-read-de-bruijn (lst keys)