X-Git-Url: https://git.ganneff.de//index.cgi?p=emacs.git;a=blobdiff_plain;f=.emacs.d%2Finit.el;h=3af140036e2c6dc77be33c9f343146b16b7e2c04;hp=f93ecbacdbd671d3933135219d0e65060c0d7698;hb=0599802f586d2577564bd380002daa7431093055;hpb=20450cb57e71eff7785dce9c4e3f0460ed050d7b

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f93ecba..3af1400 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -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")
+(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/"))