awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix make clean printing long, relative paths in output

Browse Source
This commit is contained in:
Henrik Lissner
2017-12-22 15:24:13 -05:00
parent efc7ec38ae
commit 9a9f2ce036
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/core-packages.el
View File

@ -680,13 +680,13 @@ If RECOMPILE-P is non-nil, only recompile out-of-date core files."
(byte-recompile-directory package-user-dir 0 t)) (byte-recompile-directory package-user-dir 0 t))
(defun doom//clean-byte-compiled-files () (defun doom//clean-byte-compiled-files ()
"Delete all the compiled elc files in your Emacs configuration. "Delete all the compiled elc files in your Emacs configuration. This excludes
compiled packages.'"
This excludes compiled packages in `doom-packages-dir'.'"
(interactive) (interactive)
(let ((targets (append (list (expand-file-name "init.elc" doom-emacs-dir)) (let ((targets (append (list (expand-file-name "init.elc" doom-emacs-dir))
(directory-files-recursively doom-core-dir "\\.elc$") (directory-files-recursively doom-core-dir "\\.elc$")
(directory-files-recursively doom-modules-dir "\\.elc$")))) (directory-files-recursively doom-modules-dir "\\.elc$")))
(default-directory doom-emacs-dir))
(unless (cl-loop for path in targets (unless (cl-loop for path in targets
if (file-exists-p path) if (file-exists-p path)
collect path collect path