瀏覽代碼

display time needed for setup after init

pull/1/head
10sr 13 年之前
父節點
當前提交
e047ba6bc1
共有 1 個文件被更改,包括 10 次插入3 次删除
  1. +10
    -3
      .emacs.el

+ 10
- 3
.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 ()


Loading…
取消
儲存