emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]