1 files changed, 0 insertions, 27 deletions

@@ -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)