[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp be22cda: * lisp/emacs-lisp/comp.el (comp-clean-up-st
From: |
Andrea Corallo |
Subject: |
feature/native-comp be22cda: * lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Clean-up all .eln dirs. |
Date: |
Sun, 21 Mar 2021 04:26:33 -0400 (EDT) |
branch: feature/native-comp
commit be22cda7be9e77e67f224f6f07cca9dd44aaa078
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Clean-up all .eln dirs.
---
lisp/emacs-lisp/comp.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6da1a79..ca4be0f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3776,11 +3776,14 @@ sharing the original source filename (including FILE)."
with filename-hash = (match-string 1 file)
with regexp = (rx-to-string
`(seq "-" ,filename-hash "-" (1+ hex) ".eln" eos))
- for dir in (butlast (comp-eln-load-path-eff)) ; Skip last dir.
+ for dir in (comp-eln-load-path-eff)
do (cl-loop
for f in (when (file-exists-p dir)
(directory-files dir t regexp t))
- do (comp-delete-or-replace-file f)))))
+ ;; We may not be able to delete de file if we have no write
+ ;; permisison.
+ do (ignore-error file-error
+ (comp-delete-or-replace-file f))))))
(defun comp-delete-or-replace-file (oldfile &optional newfile)
"Replace OLDFILE with NEWFILE.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp be22cda: * lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Clean-up all .eln dirs.,
Andrea Corallo <=