X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/30b18d1d6f7deb3b0a1973c87e77490e9a50c818..6298b25e06287ef62f4a62d52b112040811616f6:/admin/archive-contents.el

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index b63f4cdaf..8f054ad87 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."