[elpa] elpa-admin 4866cb7 057/357: admin/archive-contents.el (archive--delete-elc-files): Delete backup files too.

[Stefan Monnier]

branch: elpa-admin
commit 4866cb7830dc884140f4236ec8a0f0781ba6d0fb
Author: Chong Yidong <cyd@stupidchicken.com>
Commit: Chong Yidong <cyd@stupidchicken.com>

    admin/archive-contents.el (archive--delete-elc-files): Delete backup files 
too.
---
 admin/archive-contents.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 21e5733..e94093a 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -46,11 +46,13 @@ Otherwise return nil."
       (error nil))))
 
 (defun archive--delete-elc-files (dir)
-  "Recursively delete all .elc files in DIR."
+  "Recursively delete all .elc files in DIR.
+Delete backup files also."
   (dolist (f (directory-files dir t archive-re-no-dot))
     (cond ((file-directory-p f)
           (archive--delete-elc-files f))
-         ((string-match "\\.elc\\'" f)
+         ((or (string-match "\\.elc\\'" f)
+              (backup-file-name-p f))
           (delete-file f)))))
 
 (defun batch-make-archive ()