From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 6 Oct 2008 16:16:56 +0000 (+0000)
Subject: (Vbefore_init_time, Vafter_init_time): Moved from startup.el.
X-Git-Tag: emacs-pretest-23.0.90~2623
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90503d9633729365554f465f8e6f59c9f68bd95d;p=emacs.git

(Vbefore_init_time, Vafter_init_time): Moved from startup.el.
---

diff --git a/src/emacs.c b/src/emacs.c
index 2fb975c0fc1..56ddb733432 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -131,6 +131,9 @@ Lisp_Object Vinvocation_directory;
    nil means get them only from PATH_LOADSEARCH.  */
 Lisp_Object Vinstallation_directory;
 
+/* The values of `current-time' before and after Emacs initialization.  */
+Lisp_Object Vbefore_init_time, Vafter_init_time;
+
 /* Hook run by `kill-emacs' before it does really anything.  */
 Lisp_Object Vkill_emacs_hook;
 
@@ -2497,6 +2500,15 @@ was found.  */);
   DEFVAR_LISP ("previous-system-time-locale", &Vprevious_system_time_locale,
 	       doc: /* Most recently used system locale for time.  */);
   Vprevious_system_time_locale = Qnil;
+
+  DEFVAR_LISP ("before-init-time", &Vbefore_init_time,
+	       doc: /* Value of `current-time' before Emacs begins initialization.  */);
+  Vbefore_init_time = Qnil;
+
+  DEFVAR_LISP ("after-init-time", &Vafter_init_time,
+	       doc: /* Value of `current-time' after loading the init files.
+This is nil during initialization.  */);
+  Vafter_init_time = Qnil;
 }
 
 /* arch-tag: 7bfd356a-c720-4612-8ab6-aa4222931c2e