From 981c5d1daab414a7a394aeb4761e657bccd273ed Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 6 Oct 2008 16:16:30 +0000 Subject: [PATCH] (before-init-time, after-init-time): Move into emacs.c. (command-line): Set after-init-time to nil before initialization. --- lisp/startup.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 5bd73f9e889..fa21cca8776 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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. -- 2.39.5