Mercurial > emacs
changeset 91736:0e11ef90a122
(emacs-startup-time): New variable.
(command-line): Set emacs-startup-time.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 11 Feb 2008 00:24:16 +0000 |
| parents | 4240048b8e8d |
| children | f9b4ba32c775 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)