core: Add with-eval-after-load backport

m929805 · Sep 28, 2015 · 1898cdc · 1898cdc
1 parent 560d2ac
commit 1898cdc
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/core/core-emacs-backports.el b/core/core-emacs-backports.el
@@ -36,4 +36,12 @@
       "Check whether STRING is empty."
       (string= string "")))
 
+(unless (fboundp 'with-eval-after-load)
+  (defmacro with-eval-after-load (file &rest body)
+    "Execute BODY after FILE is loaded.
+FILE is normally a feature name, but it can also be a file name,
+in case that file does not provide any feature."
+    (declare (indent 1) (debug t))
+    `(eval-after-load ,file (lambda () ,@body))))
+
 (provide 'core-emacs-backports)