From 2772ebe3667f28cefd0d6134204ce6a3c7a8c323 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 28 Nov 2022 17:46:21 +0100 Subject: [PATCH] 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 0ee094c34d8..46abca417b2 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)) -- 2.39.5