changeset 91893:1aaa6ac14ee4

(after-init-time): New variable. (command-line): Set `after-init-time' to the current time.
author Juri Linkov <juri@jurta.org>
date Sat, 16 Feb 2008 23:17:51 +0000
parents d89ecfdbe7e8
children 8172ec5d2dd0
files lisp/startup.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Sat Feb 16 22:44:58 2008 +0000
+++ b/lisp/startup.el	Sat Feb 16 23:17:51 2008 +0000
@@ -197,6 +197,9 @@
 (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 @@
 		 (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.