branch: elpa/magit
commit 70d1410f6fb18bb26c9f057e588b425cf923ef41
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
magit-state-untracked: Avoid unnecessary work
---
lisp/magit-apply.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/magit-apply.el b/lisp/magit-apply.el
index 1c526caca58..79a7a1ae13d 100644
--- a/lisp/magit-apply.el
+++ b/lisp/magit-apply.el
@@ -378,14 +378,14 @@ ignored) files."
"--" plain)
(when magit-auto-revert-mode
(mapc #'magit-turn-on-auto-revert-mode-if-desired plain)))
- (dolist (repo repos)
- (save-excursion
- (goto-char (oref (magit-get-section
- `((file . ,repo) (untracked) (status)))
- start))
- (when (and (fboundp 'borg-assimilate)
- (fboundp 'borg--maybe-absorb-gitdir)
- (fboundp 'borg--sort-submodule-sections))
+ (when (and (fboundp 'borg-assimilate)
+ (fboundp 'borg--maybe-absorb-gitdir)
+ (fboundp 'borg--sort-submodule-sections))
+ (dolist (repo repos)
+ (save-excursion
+ (goto-char (oref (magit-get-section
+ `((file . ,repo) (untracked) (status)))
+ start))
(let* ((topdir (magit-toplevel))
(url (let ((default-directory
(file-name-as-directory (expand-file-name repo))))
