From 24ca2a4163110d56c756fecedf5dfbf5bc10747b Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 13 Feb 2017 04:50:04 -0500 Subject: [PATCH] Refactor doom/reload-autoloads --- core/core-packages.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/core/core-packages.el b/core/core-packages.el index da1e697f3..d8428112a 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -352,22 +352,22 @@ the commandline." (interactive) (doom-initialize-packages noninteractive) (let ((generated-autoload-file doom-autoload-file) - autoload-files) - (setq autoload-files - (append (-flatten (--map (let ((auto-dir (f-expand "autoload" it)) - (auto-file (f-expand "autoload.el" it))) - (append (and (f-exists-p auto-file) - (list auto-file)) - (and (f-directory-p auto-dir) - (f-glob "*.el" auto-dir)))) - (--map (doom-module-path (car it) (cdr it)) - (doom--module-pairs)))) - (f-glob "autoload/*.el" doom-core-dir))) + (autoload-files + (append (-flatten (--map (let ((auto-dir (f-expand "autoload" it)) + (auto-file (f-expand "autoload.el" it))) + (append (and (f-exists-p auto-file) + (list auto-file)) + (and (f-directory-p auto-dir) + (f-glob "*.el" auto-dir)))) + (--map (doom-module-path (car it) (cdr it)) + (doom--module-pairs)))) + (f-glob "autoload/*.el" doom-core-dir)))) (when (f-exists-p generated-autoload-file) (f-delete generated-autoload-file) (message "Deleted old autoloads.el")) (dolist (file autoload-files) - (@quiet (update-file-autoloads file)) + (let ((inhibit-message t)) + (update-file-autoloads file)) (message "Scanned %s" (f-relative file doom-emacs-dir))) (condition-case ex (with-current-buffer (get-file-buffer generated-autoload-file)