mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(before-init-time, after-init-time): Move into emacs.c.

Browse Source 
(command-line): Set after-init-time to nil before initialization.
This commit is contained in:
Chong Yidong 2008-10-06 16:16:30 +00:00
parent 81fe0060d5
commit 981c5d1daa
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/startup.el
View File

@ -257,12 +257,6 @@ 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 before-init-time nil
"Value of `current-time' before Emacs begins initialization.")
(defvar after-init-time nil
"Value of `current-time' after loading the init files.")
(defvar emacs-startup-hook nil
"Normal hook run after loading init files and handling the command line.")
@ -700,6 +694,7 @@ opening the first frame (e.g. open a connection to an X server).")
(defun command-line ()
(setq before-init-time (current-time)
after-init-time nil
command-line-default-directory default-directory)
;; Choose a reasonable location for temporary files.