diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-03-21 15:32:52 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-03-21 15:34:38 +0100 |
| commit | d0280ce1b160ddc440d4ecac0397c50d2f5235eb (patch) | |
| tree | ee4d72254e1d133defe72693d290e4ac82bf33ef /lisp/emacs-lisp/comp.el | |
| parent | 08682ccc3154eaae993dbcb71a6498d1c06d80ae (diff) | |
| download | emacs-d0280ce1b160ddc440d4ecac0397c50d2f5235eb.tar.gz emacs-d0280ce1b160ddc440d4ecac0397c50d2f5235eb.tar.bz2 emacs-d0280ce1b160ddc440d4ecac0397c50d2f5235eb.zip | |
Revert "* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Clean-up all..."
This reverts commit be22cda7be9e77e67f224f6f07cca9dd44aaa078.
Older binaries might still need those .eln if they where preloaded.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 76b4733cfaa..37b61edeb0c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3776,14 +3776,11 @@ 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 (comp-eln-load-path-eff) + for dir in (butlast (comp-eln-load-path-eff)) ; Skip last dir. do (cl-loop for f in (when (file-exists-p dir) (directory-files dir t regexp t)) - ;; 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)))))) + do (comp-delete-or-replace-file f))))) (defun comp-delete-or-replace-file (oldfile &optional newfile) "Replace OLDFILE with NEWFILE. |