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'.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 0ee094c34d83e20233548b0a2afe2ab74083b625..46abca417b20d62e13dfd423ab3dee7485979323 100644 (file)
--- 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))