From 7f1725a653a286870819cfd0e28232aa3fe52f9a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jul 2011 19:56:15 -0400 Subject: [PATCH] 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 21e5733d3..e94093a70 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 () -- 2.39.2