Be extra sure to delete the right *.elc files
Ensures no extra elc files are caught in the crossfire, e.g. in .cask or elsewhere.
This commit is contained in:
parent
45627d6ea6
commit
d5682953a9
1 changed files with 10 additions and 5 deletions
|
@ -536,11 +536,16 @@ components to feel its effects."
|
||||||
"Delete all compiled elc files in DOOM emacs, excluding compiled ELPA/QUELPA
|
"Delete all compiled elc files in DOOM emacs, excluding compiled ELPA/QUELPA
|
||||||
package files."
|
package files."
|
||||||
(interactive)
|
(interactive)
|
||||||
(when-let (elc-files (cl-remove-if (lambda (file) (file-in-directory-p file doom-local-dir))
|
(if-let (elc-files
|
||||||
(directory-files-recursively doom-emacs-dir "\\.elc$")))
|
(append
|
||||||
(dolist (file elc-files)
|
(let ((init-elc (expand-file-name "init.elc" doom-emacs-dir)))
|
||||||
(delete-file file)
|
(if (file-exists-p init-elc) (list init-elc)))
|
||||||
(message "Deleting %s" (file-relative-name file doom-emacs-dir)))))
|
(directory-files-recursively doom-core-dir "\\.elc$")
|
||||||
|
(directory-files-recursively doom-modules-dir "\\.elc$")))
|
||||||
|
(dolist (file elc-files)
|
||||||
|
(delete-file file)
|
||||||
|
(message "Deleting %s" (file-relative-name file doom-emacs-dir)))
|
||||||
|
(message "Everything is clean")))
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue