branch: elpa-admin
commit 368a21290bc51ef56c47ecdb6e039fb25efeea46
Merge: a30b538 f79a619
Author: Ken Manheimer <[email protected]>
Commit: Ken Manheimer <[email protected]>
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa
---
admin/archive-contents.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index b63f4cd..8f054ad 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -622,12 +622,13 @@ If WITH-CORE is non-nil, it means we manage :core
packages as well."
;; Not under version control. Check if it only contains
;; symlinks and generated files, in which case it is probably
;; a leftover :core package that can safely be deleted.
- (let ((file (archive--find-non-trivial-file dir)))
- (if file
- (message "Keeping %s for non-trivial file \"%s\"" dir file)
- (progn
- (message "Deleted untracked package %s" dir)
- (delete-directory dir 'recursive t)))))))))
+ ;; (let ((file (archive--find-non-trivial-file dir)))
+ ;; (if file
+ ;; (message "Keeping %s for non-trivial file \"%s\"" dir file)
+ ;; (progn
+ ;; (message "Deleted untracked package %s" dir)
+ ;; (delete-directory dir 'recursive t))))
+ )))))
(defun archive--external-package-sync (name)
"Sync external package named NAME."
