From 29c287a8c31bebe9dd40b499415511c96a1ef6fa Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 30 Mar 2022 18:14:56 -0500 Subject: I waited way too long to make this commit --- lisp/acdw.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lisp/acdw.el') diff --git a/lisp/acdw.el b/lisp/acdw.el index de2b8e7..764a246 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -374,5 +374,17 @@ the `format' call in a list." (prog1 (progn ,@body) (progress-reporter-done ,reporter))))) +(defmacro +with-eval-after-loads (features &rest body) + "Execute BODY after all FEATURES are loaded." + (declare (indent 1) (debug (form def-body))) + (unless (listp features) + (setq features (list features))) + (if (null features) + (macroexp-progn body) + (let* ((this (car features)) + (rest (cdr features))) + `(with-eval-after-load ',this + (+with-eval-after-loads ,rest ,@body))))) + (provide 'acdw) ;;; acdw.el ends here -- cgit 1.4.1-21-gabe81