Also load files in .emacs.d/lisp when running `refresh-emacs'

1 files changed, 13 insertions, 4 deletions

@@ -57,10 +57,19 @@ each hook in HOOKS."
 (defun refresh-emacs ()
   "Reload Emacs's configuration files."
   (interactive)
-  (dolist (file (list (locate-user-emacs-file "early-init.el")
-                      (locate-user-emacs-file "init.el" ".emacs")))
-    (when (file-exists-p file)
-      (load-file file))))
+  (dolist (file (append
+                 ;; Load lisp libraries first, in case their functionality is
+                 ;; used by {early-,}init.el
+                 (let* ((dir (expand-file-name "lisp/" user-emacs-directory))
+                        (full-name (lambda (f)
+                                     (concat (file-name-as-directory dir) f))))
+                   (mapcar full-name (directory-files dir nil "\\.el\\'")))
+                 ;; Load regular init files
+                 (list (locate-user-emacs-file "early-init.el")
+                       (locate-user-emacs-file "init.el" ".emacs"))))
+    (with-message (format "Loading %s" file)
+      (when (file-exists-p file)
+        (load-file file)))))
 
 (defun expand-file-name-exists-p (&rest expand-file-name-args)
   "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning