From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 6 Oct 2008 16:16:30 +0000 (+0000)
Subject: (before-init-time, after-init-time): Move into emacs.c.
X-Git-Tag: emacs-pretest-23.0.90~2625
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=981c5d1daab414a7a394aeb4761e657bccd273ed;p=emacs.git

(before-init-time, after-init-time): Move into emacs.c.
(command-line): Set after-init-time to nil before initialization.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 5bd73f9e889..fa21cca8776 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -257,12 +257,6 @@ There is no `condition-case' around the running of these functions;
 therefore, if you set `debug-on-error' non-nil in `.emacs',
 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.")
 
@@ -700,6 +694,7 @@ opening the first frame (e.g. open a connection to an X server).")
 
 (defun command-line ()
   (setq before-init-time (current-time)
+	after-init-time nil
         command-line-default-directory default-directory)
 
   ;; Choose a reasonable location for temporary files.