lotsa changes
[emacs.git] / .emacs.d / init.el
index f93ecba..3af1400 100644 (file)
@@ -56,6 +56,16 @@ Usually ~/.emacs.d/")
   "This directory stores extra elisp files for Ganneffs emacs config")
 (defvar jj-custom-file (expand-file-name "customized.el" jj-config-dir)
   "Where do changes from the customization interface end in Ganneffs emacs config")
   "This directory stores extra elisp files for Ganneffs emacs config")
 (defvar jj-custom-file (expand-file-name "customized.el" jj-config-dir)
   "Where do changes from the customization interface end in Ganneffs emacs config")
+(defvar jj-cache-dir (expand-file-name "cache" jj-dir)
+  "This directory stores cache files and other volatile data")
+(defvar jj-backup-directory (expand-file-name (concat "emacs-autosave-" user-login-name) jj-cache-dir)
+  "This directory stores backup files")
+
+;; Ensure that the cache directory hierarchy exists
+(if (not (file-exists-p jj-cache-dir))
+    (make-directory jj-cache-dir))
+(if (not (file-exists-p jj-backup-directory))
+    (make-directory jj-backup-directory))
 
 ;; Set path to (my, recent) Org-Mode version
 (add-to-list 'load-path (concat jj-elisp-dir "/org/"))
 
 ;; Set path to (my, recent) Org-Mode version
 (add-to-list 'load-path (concat jj-elisp-dir "/org/"))