Manage cleanly autosave and backup

custom.el

@@ -8,8 +8,6 @@
  '(TeX-fold-type-list '(env))
  '(TeX-newline-function 'reindent-then-newline-and-indent)
  '(auth-source-save-behavior nil)
- '(auto-save-file-name-transforms '((".*" "~/.emacs.d/autosaves/\\1" t)))
- '(backup-directory-alist '((".*" . "~/.emacs.d/backup/")))
  '(beacon-blink-duration 0.15)
  '(beacon-color "#969696")
  '(bsn-backends '(msn))

global.org

@@ -105,8 +105,10 @@
   Put autosave files (ie #foo#) and backup files (ie foo~) in ~/.emacs.d/.
   create the autosave dir if necessary, since emacs won't.
   #+begin_src emacs-lisp
-    (make-directory "~/.emacs.d/autosaves/" t)
+    (dolist (dir '("~/.emacs.d/autosaves/" "~/.emacs.d/backup/"))
-    (make-directory "~/.emacs.d/backup/" t)
+      (make-directory dir t))
+    (setq auto-save-file-name-transforms '((".*" "~/.emacs.d/autosaves/\\1" t))
+          backup-directory-alist '((".*" . "~/.emacs.d/backup/")))
     #+end_src
 
 * Themes