# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1202689456 0
# Node ID 0e11ef90a122c35dd6838baeb5b66f868be5b07a
# Parent  4240048b8e8d74fb6954fa2c41f28884a1a4225f
(emacs-startup-time): New variable.
(command-line): Set emacs-startup-time.

diff -r 4240048b8e8d -r 0e11ef90a122 lisp/startup.el
--- a/lisp/startup.el	Mon Feb 11 00:02:41 2008 +0000
+++ b/lisp/startup.el	Mon Feb 11 00:24:16 2008 +0000
@@ -194,6 +194,9 @@
 therefore, if you set `debug-on-error' non-nil in `.emacs',
 an error in one of these functions will invoke the debugger.")
 
+(defvar emacs-startup-time nil
+  "Value of `current-time' when Emacs was started.")
+
 (defvar emacs-startup-hook nil
   "Normal hook run after loading init files and handling the command line.")
 
@@ -625,7 +628,8 @@
     (nreverse rest)))
 
 (defun command-line ()
-  (setq command-line-default-directory default-directory)
+  (setq emacs-startup-time (current-time)
+        command-line-default-directory default-directory)
 
   ;; Choose a reasonable location for temporary files.
   (custom-reevaluate-setting 'temporary-file-directory)