From e047ba6bc17993cb1085c42b1c180b6b60abb9ed Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Thu, 5 Jan 2012 01:02:29 +0900
Subject: [PATCH] display time needed for setup after init

---
 .emacs.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/.emacs.el b/.emacs.el
index 515660c..c2e8ca1 100644
--- a/.emacs.el
+++ b/.emacs.el
@@ -62,6 +62,13 @@
             (when (file-readable-p "~/.emacs")
               (load-file "~/.emacs"))))
 
+(add-hook 'after-init-hook
+          (lambda ()
+            (message "init time: %d msec"
+                     (+ (* (- (nth 1 after-init-time) (nth 1 before-init-time)) 1000)
+                        (/ (- (nth 2 after-init-time) (nth 2 before-init-time)) 1000)))
+            (switch-to-buffer "*Messages*")))
+
 (cd ".")  ; when using windows use / instead of \ in `default-directory'
 
 ;; locale
@@ -1353,9 +1360,9 @@ otherwise, use `pack-default-extension' for pack."
 ;; (add-hook 'dired-after-readin-hook
 ;;           'my-replace-nasi-none)
 
-(add-hook 'after-init-hook
-          (lambda ()
-            (dired ".")))
+;; (add-hook 'after-init-hook
+;;           (lambda ()
+;;             (dired ".")))
 
 (add-hook 'dired-mode-hook
           (lambda ()