mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/emacs-lisp/comp.el (native-compile-prune-cache): Doc fix.

Browse source
This commit is contained in:
Eli Zaretskii 2025-05-10 22:23:27 +03:00
parent bb73533165
commit 2d5f243470
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/comp.el
View file

@ -3656,12 +3656,22 @@ variable \"NATIVE_DISABLED\" is set, only byte compile."
(setq command-line-args-left (cdr command-line-args-left))))) (setq command-line-args-left (cdr command-line-args-left)))))
(defun native-compile-prune-cache () (defun native-compile-prune-cache ()
"Remove .eln files that aren't applicable to the current Emacs invocation." "Remove *.eln files that aren't usable by the current Emacs build.
This command removes all the *.eln files in `native-comp-eln-load-path'
which are incompatible with the Emacs session in which you invoke this
command. This includes the *.eln files compiled by all the Emacs
sessions where `comp-native-version-dir' had a value different from the
current session.
Note that this command does not prune the *.eln files in the last
directory in `native-comp-eln-load-path', which holds *.eln files
compiled during the Emacs build process."
(interactive) (interactive)
(unless (featurep 'native-compile) (unless (featurep 'native-compile)
(user-error "This Emacs isn't built with native-compile support")) (user-error "This Emacs isn't built with native-compile support"))
;; The last item in native-comp-eln-load-path is assumed to be a system ;; The last directory in 'native-comp-eln-load-path' is assumed to be a
;; directory, so don't try to delete anything there (bug#59658). ;; system directory, so don't try to delete anything there (bug#59658).
(dolist (dir (butlast native-comp-eln-load-path)) (dolist (dir (butlast native-comp-eln-load-path))
;; If a directory is non absolute it is assumed to be relative to ;; If a directory is non absolute it is assumed to be relative to
;; `invocation-directory'. ;; `invocation-directory'.