Mercurial > emacs
changeset 91893:1aaa6ac14ee4
(after-init-time): New variable.
(command-line): Set `after-init-time' to the current time.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 16 Feb 2008 23:17:51 +0000 |
| parents | d89ecfdbe7e8 |
| children | 8172ec5d2dd0 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Sat Feb 16 22:44:58 2008 +0000 +++ b/lisp/startup.el Sat Feb 16 23:17:51 2008 +0000 @@ -197,6 +197,9 @@ (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.") @@ -1097,6 +1100,7 @@ (eq face-ignored-fonts old-face-ignored-fonts)) (clear-face-cache))) + (setq after-init-time (current-time)) (run-hooks 'after-init-hook) ;; Decode all default-directory.