branch: elpa-admin
commit b2531f1498f62944e43c8465611b6dc58a2f38d3
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
* admin/archive-contents.el: Minimal support for local externals
* admin/archive-contents.el (archive--cleanup-packages): Update
symlinked Git projects.
---
admin/archive-contents.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 37b582d..2b1ffec 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -604,7 +604,13 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
(let ((default-directory (expand-file-name "packages/")))
(dolist (dir (directory-files "."))
(cond
- ((or (not (file-directory-p dir)) (file-symlink-p dir))
+ ((file-symlink-p dir)
+ ;; There are normally no such thing, but the user may elect to
+ ;; add symlinks to other projects. If so, update them, as if they
+ ;; were "externals".
+ (when (file-directory-p (expand-file-name ".git" dir))
+ (archive--pull dir)))
+ ((or (not (file-directory-p dir)) )
;; We only add/remove plain directories in elpa/packages (not
;; symlinks).
nil)
