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

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

[nongnu] elpa/focus 6add57b887 59/82: Fix indentation


From: ELPA Syncer
Subject: [nongnu] elpa/focus 6add57b887 59/82: Fix indentation
Date: Tue, 6 Sep 2022 04:58:58 -0400 (EDT)

branch: elpa/focus
commit 6add57b887ebc67be831b079a084f18f612e0421
Author: Lars Tveito <larstvei@ifi.uio.no>
Commit: Lars Tveito <larstvei@ifi.uio.no>

    Fix indentation
---
 focus.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/focus.el b/focus.el
index fcec9dd08c..b22a05f83a 100644
--- a/focus.el
+++ b/focus.el
@@ -100,9 +100,9 @@ The timer calls `focus-read-only-hide-cursor' after
 (defun focus-get-thing ()
   "Return the current thing, based on `focus-mode-to-thing'."
   (or focus-current-thing
-   (let* ((modes (mapcar 'car focus-mode-to-thing))
-          (mode  (focus-any 'derived-mode-p modes)))
-     (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence))))
+      (let* ((modes (mapcar 'car focus-mode-to-thing))
+             (mode  (focus-any 'derived-mode-p modes)))
+        (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence))))
 
 (defun focus-bounds ()
   "Return the current bounds, based on `focus-get-thing'."
@@ -185,8 +185,8 @@ default is overwritten. This function simply helps set the
 `focus-current-thing'."
   (interactive)
   (let* ((candidates '(symbol list sexp defun
-                      filename url email word
-                      sentence whitespace line page))
+                              filename url email word
+                              sentence whitespace line page))
          (thing (completing-read "Thing: " candidates)))
     (setq focus-current-thing (intern thing))))
 
@@ -197,7 +197,7 @@ if active."
   (when focus-mode
     (when (region-active-p)
       (focus-move-overlays (region-beginning) (region-end)))
-   (remove-hook 'post-command-hook 'focus-move-focus t)))
+    (remove-hook 'post-command-hook 'focus-move-focus t)))
 
 (defun focus-unpin ()
   "Unpin the focused section."



reply via email to

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