起動時間を計測する

http://www-tsujii.is.s.u-tokyo.ac.jp/~yoshinag/tips/elisp_tips.htmlで、起動時間の測定方法が紹介されているけれど、before-init-timeafter-init-timeという変数が定義されているのでコレを使って計算できる。最近の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)))))

とか書いておくと、起動後に*Messages*バッファを見ると起動にかかった時間が出てくる。
自分の設定では今のところ

init time: 2658 msec