emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 93d4bd2 066/110: avy.el: Fix indentation


From: Oleh Krehel
Subject: [elpa] master 93d4bd2 066/110: avy.el: Fix indentation
Date: Sat, 11 May 2019 10:15:45 -0400 (EDT)

branch: master
commit 93d4bd2c6763064f63e343eaec9107248a2d535c
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    avy.el: Fix indentation
---
 avy.el | 36 ++++++++++++++++++------------------
 1 file 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]