# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1203203871 0
# Node ID 1aaa6ac14ee43f4257f06f0ac1345616854e77be
# Parent  d89ecfdbe7e8c34eb820fd53681db9f1f86d1ba7
(after-init-time): New variable.
(command-line): Set `after-init-time' to the current time.

diff -r d89ecfdbe7e8 -r 1aaa6ac14ee4 lisp/startup.el
--- 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.