[Emacs-diffs] Changes to emacs/lisp/startup.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/02/11 00:24:16

Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.475
retrieving revision 1.476
diff -u -b -r1.475 -r1.476
--- startup.el  7 Feb 2008 14:05:53 -0000       1.475
+++ startup.el  11 Feb 2008 00:24:16 -0000      1.476
@@ -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)