From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 22 Jul 2022 19:55:23 +0000 (+0200)
Subject: Give a better error message in native-compile-prune-cache
X-Git-Tag: emacs-29.0.90~1447^2~802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=963c8c35c3043aa6f20862b4eb9273587839f77a;p=emacs.git

Give a better error message in native-compile-prune-cache

* lisp/emacs-lisp/comp.el (native-compile-prune-cache): Give a
better error message in non-nativecomp builds.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 9a635a47763..04df4885de1 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -4293,6 +4293,8 @@ of (commands) to run simultaneously."
 (defun native-compile-prune-cache ()
   "Remove .eln files that aren't applicable to the current Emacs invocation."
   (interactive)
+  (unless (featurep 'native-compile)
+    (user-error "This Emacs isn't build with native-compile support"))
   (dolist (dir native-comp-eln-load-path)
     ;; If a directory is non absolute it is assumed to be relative to
     ;; `invocation-directory'.