branch: elpa-admin
commit 4866cb7830dc884140f4236ec8a0f0781ba6d0fb
Author: Chong Yidong <c...@stupidchicken.com>
Commit: Chong Yidong <c...@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 ()
