Commit 238cbdf8 authored by Glenn Morris's avatar Glenn Morris
Browse files

(emacs-startup-time): New variable.

(command-line): Set emacs-startup-time.
parent 124ce267
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment