summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOleh Krehel <ohwoeowho@gmail.com>2017-12-30 11:20:21 +0100
committerOleh Krehel <ohwoeowho@gmail.com>2017-12-30 11:20:36 +0100
commit93d4bd2c6763064f63e343eaec9107248a2d535c (patch)
tree6ed6feacef6c85ace4bdbbd294938d5cfc2479bf
parent6459f7f12aef1e71ff5e265b1edb414fd81123e6 (diff)
avy.el: Fix indentation
-rw-r--r--avy.el36
1 files changed, 18 insertions, 18 deletions
diff --git a/avy.el b/avy.el
index 8d61c79..2613efc 100644
--- a/avy.el
+++ b/avy.el
@@ -466,15 +466,15 @@ multiple DISPLAY-FN invocations."
(dolist (x avy--leafs)
(funcall display-fn (car x) (cdr x))))
(let ((char (funcall avy-translate-char-function (read-key)))
- window
+ window
branch)
(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
+ (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))))
+ (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)))
@@ -733,19 +733,19 @@ Use OVERLAY-FN to visualize the decision overlay."
(if (= len 1)
(setq res (car candidates))
(unwind-protect
- (progn
- (avy--make-backgrounds
- (avy-window-list))
- (setq res (cond ((eq avy-style 'de-bruijn)
- (avy-read-de-bruijn
- candidates avy-keys))
- ((eq avy-style 'words)
- (avy-read-words
- candidates avy-words))
- (t
- (avy-read (avy-tree candidates avy-keys)
- overlay-fn
- #'avy--remove-leading-chars)))))
+ (progn
+ (avy--make-backgrounds
+ (avy-window-list))
+ (setq res (cond ((eq avy-style 'de-bruijn)
+ (avy-read-de-bruijn
+ candidates avy-keys))
+ ((eq avy-style 'words)
+ (avy-read-words
+ candidates avy-words))
+ (t
+ (avy-read (avy-tree candidates avy-keys)
+ overlay-fn
+ #'avy--remove-leading-chars)))))
(avy--done)))
(cond ((eq res 'restart)
(avy--process cands overlay-fn))