From 0920c1b361e50d99c943d30255fed95f7bc0da23 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 23:28:38 -0500
Subject: meh

---
 lisp/acdw.el | 27 ---------------------------
 1 file changed, 27 deletions(-)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 1c6f826..f972d08 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -28,33 +28,6 @@ the filesystem, unless INHIBIT-MKDIR is non-nil."
            (make-directory (file-name-directory file-name) :parents))
          file-name))))
 
-;;; Convenience macros
-
-(defun eval-after-init (fn)
-  "Evaluate FN after inititation, or now if Emacs is initialized.
-FN is called with no arguments."
-  (if after-init-time
-      (funcall fn)
-    (add-hook 'after-init-hook fn)))
-
-(defmacro eval-after (features &rest body)
-  "Evaluate BODY, but only after loading FEATURES.
-FEATURES can be an atom or a list; as an atom it works like
-`with-eval-after-load'.  The special feature `init' will evaluate
-BODY after Emacs is finished initializing."
-  (declare (indent 1)
-	   (debug (form def-body)))
-   (if (eq features 'init)
-       `(eval-after-init (lambda () ,@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
-	    (eval-after ,rest ,@body))))))
-
 ;;; Convenience functions
 
 (defun define-keys (maps &rest keydefs)
-- 
cgit 1.4.1-21-gabe81