[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master fda8249: * admin/archive-contents.el: Minimal support for
From: |
Stefan Monnier |
Subject: |
[elpa] master fda8249: * admin/archive-contents.el: Minimal support for local externals |
Date: |
Tue, 26 Jul 2016 22:02:48 +0000 (UTC) |
branch: master
commit fda824956947bfb4541f1119239dfc93125c8b51
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master fda8249: * admin/archive-contents.el: Minimal support for local externals,
Stefan Monnier <=