Self Compiling Emacs Lisp

Esta função faz com que o Emacs compile o .emacs (criando o .emacs.elc) sempre que ele for modificado. O Emacs por defeito prefere carregar List compilado, e vai carregar o ~/.emacs.elc em vez do ~/.emacs, tornando o arranque muito mais rápido.

;; Compiles ~/.emacs
;; TODO:
;; * load command line files before sigquit
(defun compile-emacs-config-file ()
  "Compiles ~/.emacs"
  (if (file-newer-than-file-p "~/.emacs" "~/.emacs.elc")
      (progn
    (setq byte-compile-warnings nil)
    (byte-compile-file "~/.emacs" t) ; Compile and load
    (setq byte-compile-warnings t)
    (kill-buffer "*Compile-Log*")
    (setq visible-bell t)
    (signal 'quit nil))))

(compile-emacs-config-file)