From 5ab0e67e804a4b2f8ba2775ac93d5f65f7307759 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 16 Feb 2008 23:17:51 +0000 Subject: [PATCH] (after-init-time): New variable. (command-line): Set `after-init-time' to the current time. --- lisp/startup.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 1b420436b52..56101f3da28 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -197,6 +197,9 @@ an error in one of these functions will invoke the debugger.") (defvar before-init-time nil "Value of `current-time' before Emacs begins initialization.") +(defvar after-init-time nil + "Value of `current-time' after loading the init files.") + (defvar emacs-startup-hook nil "Normal hook run after loading init files and handling the command line.") @@ -1097,6 +1100,7 @@ opening the first frame (e.g. open a connection to an X server).") (eq face-ignored-fonts old-face-ignored-fonts)) (clear-face-cache))) + (setq after-init-time (current-time)) (run-hooks 'after-init-hook) ;; Decode all default-directory. -- 2.39.5