1 
(defconst dot-emacs (concat (getenv "HOME") "/" ".emacs.hunner.el")
2 
  "My dot emacs file")
3 





4

(require 'bytecomp)





5

(setq compiled-dot-emacs (byte-compile-dest-file dot-emacs))





6






7

(if (or (not (file-exists-p compiled-dot-emacs))





8

        (file-newer-than-file-p dot-emacs compiled-dot-emacs)





9

        (equal (nth 4 (file-attributes dot-emacs)) (list 0 0)))





10

    (load dot-emacs)





11

  (load compiled-dot-emacs))





12






13

(add-hook 'kill-emacs-hook





14

          '(lambda () (and (file-newer-than-file-p dot-emacs compiled-dot-emacs)





15

                           (byte-compile-file dot-emacs))))