Adding erc/saveplace/shortcuts to emacs. +useful

This commit is contained in:
Hunter Haugen 2010-10-23 12:11:40 -07:00
parent 430a8dd7ed
commit 596f5badff
2 changed files with 50 additions and 23 deletions

14
.emacs
View file

@ -1,15 +1,15 @@
(defconst dot-emacs (concat (getenv "HOME") "/" ".emacs.hunner.el")
"My dot emacs file")
"My dot emacs file")
(require 'bytecomp)
(setq compiled-dot-emacs (byte-compile-dest-file dot-emacs))
(if (or (not (file-exists-p compiled-dot-emacs))
(file-newer-than-file-p dot-emacs compiled-dot-emacs)
(equal (nth 4 (file-attributes dot-emacs)) (list 0 0)))
(load dot-emacs)
(load compiled-dot-emacs))
(file-newer-than-file-p dot-emacs compiled-dot-emacs)
(equal (nth 4 (file-attributes dot-emacs)) (list 0 0)))
(load dot-emacs)
(load compiled-dot-emacs))
(add-hook 'kill-emacs-hook
'(lambda () (and (file-newer-than-file-p dot-emacs compiled-dot-emacs)
(byte-compile-file dot-emacs))))
'(lambda () (and (file-newer-than-file-p dot-emacs compiled-dot-emacs)
(byte-compile-file dot-emacs))))