gistfile1.el

;; .emacs先頭で、.emacs.elcの方が古かったら再作成する。
;; （ってこのタイミングで再作成しても間に合わない気がする…。）
(if (file-newer-than-file-p "~/.emacs" "~/.emacs.elc")
    (save-excursion
       (byte-compile-file "~/.emacs")))

;; .emacsをsaveしたらelcを作る
(add-hook 'after-save-hook
          (function (lambda ()
                      (if (string= (file-truename (expand-file-name "~/.emacs"))
                                   (file-truename (buffer-file-name)))
                          (save-excursion
                            (byte-compile-file "~/.emacs"))))))


;; その他好きな処理