admin/archive-contents.el (archive--delete-elc-files): Delete backup files too.

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 21e5733d3db3d38b34858dca35a1040c036b5939..e94093a70c950c8afeb13a7ad5006136de967853 100644 (file)
--- 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)
       (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))
   (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 ()
           (delete-file f)))))
 
 (defun batch-make-archive ()