.emacs.el

;; ロード履歴の表示
(defun print-load ()
  "Print load-history."
  (interactive)
  (let ((all 0))
    (dolist (lst load-history)
      (let* ((file (car lst))
             (bytes (nth 7 (file-attributes file))))
        (message "%-8s %s" bytes file)
        (setq all (+ all bytes))))
    (message "%dM (%d)" (/ (/ all 1024) 1024) all)))