procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(emacs-startup-time): New variable.

Browse source 
(command-line): Set emacs-startup-time.
This commit is contained in:
Glenn Morris 2008-02-11 00:24:16 +00:00
parent 124ce267f7
commit 238cbdf80b
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/startup.el
View file

@ -194,6 +194,9 @@ 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 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 @@ opening the first frame (e.g. open a connection to an X server).")
(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)