emacs: load ian-local.el if it exists; load private.el if it exists

diff --git a/dot/emacs b/dot/emacs
index 4c2a31718f7bbf97f35e5857db502923ccab384b..c629a791901d57d117439232a213682ef3c07f8a 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -18,3 +18,6 @@
 (load-library "ian")
 (menu-bar-mode -1)
 (put 'dired-find-alternate-file 'disabled nil)
+(let ((ian-local (locate-library "ian-local")))
+  (if ian-local
+        (load-library ian-local)))

diff --git a/home/emacs/ian.el b/home/emacs/ian.el
index 1366b889843a3fe5d20a544b93575012d4eff56e..00ec26dd9fdbd54549c1241a396bfca498568c5e 100644 (file)
--- a/home/emacs/ian.el
+++ b/home/emacs/ian.el
@@ -372,7 +372,8 @@ then call send-and-exit."
       bbdb-message-caching-enabled t)      
 ;
 ; VM stuff
-;(load-file "~/private/private.el")
+(if (file-exists-p "~/private/private.el")
+  (load-file "~/private/private.el"))
 (if (file-exists-p "~/private/private2.el")
   (load-file "~/private/private2.el"))
 (setq vm-included-text-attribution-format "%F writes (\"%s\"):\n"