[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2772ebe366: Do not prune native-compiled system directories (bug#
From: |
Juanma Barranquero |
Subject: |
master 2772ebe366: Do not prune native-compiled system directories (bug#59658) |
Date: |
Mon, 28 Nov 2022 11:47:05 -0500 (EST) |
branch: master
commit 2772ebe3667f28cefd0d6134204ce6a3c7a8c323
Author: Juanma Barranquero <lekktu@gmail.com>
Commit: Juanma Barranquero <lekktu@gmail.com>
Do not prune native-compiled system directories (bug#59658)
* lisp/emacs-lisp/comp.el (native-compile-prune-cache):
Skip last directory in `native-comp-eln-load-path'.
---
lisp/emacs-lisp/comp.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 0ee094c34d..46abca417b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -4333,7 +4333,9 @@ of (commands) to run simultaneously."
(interactive)
(unless (featurep 'native-compile)
(user-error "This Emacs isn't built with native-compile support"))
- (dolist (dir native-comp-eln-load-path)
+ ;; The last item in native-comp-eln-load-path is assumed to be a system
+ ;; directory, so don't try to delete anything there (bug#59658).
+ (dolist (dir (butlast native-comp-eln-load-path))
;; If a directory is non absolute it is assumed to be relative to
;; `invocation-directory'.
(setq dir (expand-file-name dir invocation-directory))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2772ebe366: Do not prune native-compiled system directories (bug#59658),
Juanma Barranquero <=