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: Fix indentation

Browse Source
This commit is contained in:
Oleh Krehel 2017-12-30 11:20:21 +01:00
parent 6459f7f12a
commit 93d4bd2c67
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
avy.el
View File

@ -466,15 +466,15 @@ 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 window
branch) branch)
(funcall cleanup-fn) (funcall cleanup-fn)
(if (setq window (avy-mouse-event-window char)) (if (setq window (avy-mouse-event-window char))
(throw 'done (cons char window)) (throw 'done (cons char window))
;; Ensure avy-current-path stores the full path prior to ;; Ensure avy-current-path stores the full path prior to
;; exit so other packages can utilize its value. ;; exit so other packages can utilize its value.
(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))))
(if (setq branch (assoc char tree)) (if (setq branch (assoc char tree))
(if (eq (car (setq tree (cdr branch))) 'leaf) (if (eq (car (setq tree (cdr branch))) 'leaf)
(throw 'done (cdr tree))) (throw 'done (cdr tree)))
@ -733,19 +733,19 @@ Use OVERLAY-FN to visualize the decision overlay."
(if (= len 1) (if (= len 1)
(setq res (car candidates)) (setq res (car candidates))
(unwind-protect (unwind-protect
(progn (progn
(avy--make-backgrounds (avy--make-backgrounds
(avy-window-list)) (avy-window-list))
(setq res (cond ((eq avy-style 'de-bruijn) (setq res (cond ((eq avy-style 'de-bruijn)
(avy-read-de-bruijn (avy-read-de-bruijn
candidates avy-keys)) candidates avy-keys))
((eq avy-style 'words) ((eq avy-style 'words)
(avy-read-words (avy-read-words
candidates avy-words)) candidates avy-words))
(t (t
(avy-read (avy-tree candidates avy-keys) (avy-read (avy-tree candidates avy-keys)
overlay-fn overlay-fn
#'avy--remove-leading-chars))))) #'avy--remove-leading-chars)))))
(avy--done))) (avy--done)))
(cond ((eq res 'restart) (cond ((eq res 'restart)
(avy--process cands overlay-fn)) (avy--process cands overlay-fn))