mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(after-init-time): New variable.

Browse Source 
(command-line): Set `after-init-time' to the current time.
This commit is contained in:
Juri Linkov 2008-02-16 23:17:51 +00:00
parent 1f7bdd6fc6
commit 5ab0e67e80
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/startup.el
View File

@ -197,6 +197,9 @@ an error in one of these functions will invoke the debugger.")
(defvar before-init-time nil (defvar before-init-time nil
"Value of `current-time' before Emacs begins initialization.") "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 (defvar emacs-startup-hook nil
"Normal hook run after loading init files and handling the command line.") "Normal hook run after loading init files and handling the command line.")
@ -1097,6 +1100,7 @@ opening the first frame (e.g. open a connection to an X server).")
(eq face-ignored-fonts old-face-ignored-fonts)) (eq face-ignored-fonts old-face-ignored-fonts))
(clear-face-cache))) (clear-face-cache)))
(setq after-init-time (current-time))
(run-hooks 'after-init-hook) (run-hooks 'after-init-hook)
;; Decode all default-directory. ;; Decode all default-directory.