From adbe2d11a711ef2175f76bb8ed149117837b59e3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 Oct 2005 15:23:00 +0000 Subject: [PATCH] (eval-at-startup): New macro. --- lisp/subr.el | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 2348c1e3c5d..0e9d3c2b5b0 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1322,7 +1322,23 @@ definition only or variable definition only. file))) -;;;; Specifying things to do after certain files are loaded. +;;;; Specifying things to do later. + +(defmacro eval-at-startup (&rest body) + "Make arrangements to evaluate BODY when Emacs starts up. +If this is run after Emacs startup, evaluate BODY immediately. +Always returns nil. + +This works by adding a function to `before-init-hook'. +That function's doc string says which file created it." + `(progn + (if command-line-processed + (progn . ,body) + (add-hook 'before-init-hook + '(lambda () ,(concat "From " (or load-file-name "no file")) + . ,body) + t)) + nil)) (defun eval-after-load (file form) "Arrange that, if FILE is ever loaded, FORM will be run at that time. -- 2.39.5