From 0763e40986ef9ccd592d33df9106fb9c8b0eee00 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 29 Sep 2021 17:18:35 -0500
Subject: Correct with-eval-after-loads

From this reddit comment:
https://old.reddit.com/r/emacs/comments/pxe9pr/need_help_writing_a_macro/hemygul/
---
 lisp/acdw.el | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 6e66838..792b9ef 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -80,12 +80,20 @@ When not specified, ELLIPSIS defaults to '...'."
                 ,@forms))
        (add-function :after after-focus-change-function #',func-name))))
 
-(defmacro with-eval-after-loads (files &rest body)
-  "Execute BODY after FILES are loaded.
+(defmacro with-eval-after-loads (features &rest body)
+  "Execute BODY after FEATURES are loaded.
 This macro simplifies `with-eval-after-load' for multiple nested
 features."
-  (declare (indent 1) (debug (form def-body)))
-  (waterfall-list 'with-eval-after-load files body))
+  (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)))))
 
 (defmacro with-message (message &rest body)
   "Execute BODY, messaging 'MESSAGE...' before and 'MESSAGE... Done.' after."
-- 
cgit 1.4.1-21-gabe81