branch: elpa/magit
commit a659633bb26ad9203988003a616832ee8ae88b04
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
magit-wip-after-save-local-mode-turn-on: Reduce nesting
---
lisp/magit-wip.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/lisp/magit-wip.el b/lisp/magit-wip.el
index 4c13e3bc9e7..1621d62a1c4 100644
--- a/lisp/magit-wip.el
+++ b/lisp/magit-wip.el
@@ -158,14 +158,13 @@ variant `magit-wip-after-save-mode'."
(let (files)
(if-let ((elt (assoc top
magit--wip-activation-cache)))
(setq files (cddr elt))
- (progn
- (setq files (let ((default-directory top))
- (magit-tracked-files)))
- (push `(,top ,top ,@files)
- magit--wip-activation-cache)
- (unless (eq default-directory top)
- (push `(,default-directory ,top ,@files)
- magit--wip-activation-cache))))
+ (setq files (let ((default-directory top))
+ (magit-tracked-files)))
+ (push `(,top ,top ,@files)
+ magit--wip-activation-cache)
+ (unless (eq default-directory top)
+ (push `(,default-directory ,top ,@files)
+ magit--wip-activation-cache)))
(member (file-relative-name buffer-file-name) files))
(push (list default-directory nil)
magit--wip-activation-cache)
