branch: elpa-admin
commit cc282fac33515235f7e1971ba99b16b9a216b771
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* elpa-admin.el (elpaa--batch-fetch-and): Obey `:manual-sync`
---
elpa-admin.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index e1b7834009..f4c8430e6c 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -2760,9 +2760,11 @@ relative to elpa root."
(let* ((specs (elpaa--get-specs))
(pkgs (mapcar #'intern command-line-args-left))
(show-diverged (not (cdr pkgs)))
- (condition ':))
+ (condition ':)
+ (all nil))
(setq command-line-args-left nil)
(when (and (null (cdr pkgs)) (keywordp (car pkgs)))
+ (setq all t)
(setq show-diverged nil)
(setq condition (car pkgs))
(setq pkgs (mapcar #'car specs)))
@@ -2773,7 +2775,10 @@ relative to elpa root."
(elpaa--spec-get pkg-spec condition))
;; (unless (file-directory-p (expand-file-name pkg "packages"))
;; (elpaa--worktree-sync pkg-spec))
- (elpaa--fetch pkg-spec k show-diverged)))))))
+ (elpaa--fetch pkg-spec
+ (if (and all (elpaa--spec-get pkg-spec :manual-sync))
+ #'ignore k)
+ show-diverged)))))))
(defun elpaa-batch-fetch-and-show (&rest _)
(elpaa--batch-fetch-and #'ignore))
