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

Add window selection via mouse button press and fix typo

Browse Source
This commit is contained in:
Bob Weiner 2017-12-08 15:20:41 -05:00 committed by Oleh Krehel
parent 793a5e22a7
commit 9489ca9064
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
avy.el
View File

@ -465,15 +465,19 @@ multiple DISPLAY-FN invocations."
(dolist (x avy--leafs) (dolist (x avy--leafs)
(funcall display-fn (car x) (cdr x)))) (funcall display-fn (car x) (cdr x))))
(let ((char (funcall avy-translate-char-function (read-key))) (let ((char (funcall avy-translate-char-function (read-key)))
window
branch) branch)
(funcall cleanup-fn) (funcall cleanup-fn)
(if (setq branch (assoc char tree)) (if (setq window (avy-mouse-event-window char))
(progn (throw 'done (cons char window))
;; Ensure avy-current-path stores the full path given before
;; exit for testing when an invalid path character is given.
(setq avy-current-path (setq avy-current-path
(concat avy-current-path (string (avy--key-to-char char)))) (concat avy-current-path (string (avy--key-to-char char))))
(when (eq (car (setq tree (cdr branch))) 'leaf) (if (setq branch (assoc char tree))
(throw 'done (cdr tree)))) (if (eq (car (setq tree (cdr branch))) 'leaf)
(funcall avy-handler-function char)))))) (throw 'done (cdr tree)))
(funcall avy-handler-function char)))))))
(defun avy-read-de-bruijn (lst keys) (defun avy-read-de-bruijn (lst keys)
"Select from LST dispatching on KEYS." "Select from LST dispatching on KEYS."