Emacsの起動時間を調べる

Emacs23.1 がリリースされましたねー。めでたいめでたい。やんややんや。
もっともだいぶ前から使っていたんで新鮮さはないんですが、やっぱりアンチエイリアスの効いたフォントは美しい。

んで、emacs23から追加された関数を使って、Emacsの起動に掛かった時間を表示する機能など。小ネタです。

;;;====================================
;;;; boot-time
;;;====================================
;;; 起動するまでにかかった時間を表示。
(defun boot-time () 
" 起動するまでにかかった時間を表示。"
  (interactive)
  (message "起動時間：%s秒"
           (- (cadr after-init-time) (cadr before-init-time))))

M-x boot-time で起動時間が表示されます。