diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-17 15:26:21 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-17 15:26:34 +0200 |
| commit | 40b734c5003c71dc533d588bb00ea51a983bd730 (patch) | |
| tree | 05eb67127c447fab4383c98a80a6fec9b400c650 /lisp/emacs-lisp | |
| parent | 24b85b10e388303c9c871a65ccf5deeed19b04f8 (diff) | |
| download | emacs-40b734c5003c71dc533d588bb00ea51a983bd730.tar.gz emacs-40b734c5003c71dc533d588bb00ea51a983bd730.tar.bz2 emacs-40b734c5003c71dc533d588bb00ea51a983bd730.zip | |
Don't prune *.eln files in parent of eln-load-path
* lisp/emacs-lisp/comp.el (native-compile-prune-cache): Don't
prune *.eln files in parent directory of `native-comp-eln-load-path'.
* test/lisp/emacs-lisp/comp-tests.el
(test-native-compile-prune-cache/dont-delete-in-parent-of-cache):
New test.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 686c7aeb3db..460d260192d 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -4334,7 +4334,9 @@ of (commands) to run simultaneously." ;; `invocation-directory'. (setq dir (expand-file-name dir invocation-directory)) (when (file-exists-p dir) - (dolist (subdir (directory-files dir t)) + (dolist (subdir (seq-filter + (lambda (f) (not (string-match (rx "/." (? ".") eos) f))) + (directory-files dir t))) (when (and (file-directory-p subdir) (file-writable-p subdir) (not (equal (file-name-nondirectory |