From df92e4796703501261b96c92a09466f92d48772c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 5 Jun 2017 20:19:46 +0200 Subject: [PATCH] Refactor subr-x out of doom/compile --- core/core-packages.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/core/core-packages.el b/core/core-packages.el index 68b1749cf..509a755f1 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -567,16 +567,16 @@ components to feel its effects." "Delete all compiled elc files in DOOM emacs, excluding compiled ELPA/QUELPA package files." (interactive) - (if-let (elc-files - (append - (let ((init-elc (expand-file-name "init.elc" doom-emacs-dir))) - (if (file-exists-p init-elc) (list init-elc))) - (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"))) + (let ((elc-files (append + (let ((init-elc (expand-file-name "init.elc" doom-emacs-dir))) + (if (file-exists-p init-elc) (list init-elc))) + (directory-files-recursively doom-core-dir "\\.elc$") + (directory-files-recursively doom-modules-dir "\\.elc$")))) + (if elc-files + (dolist (file elc-files) + (delete-file file) + (message "Deleting %s" (file-relative-name file doom-emacs-dir))) + (message "Everything is clean")))) ;;