emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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