blob: b6ce2b018ac30c147ab997d6aec177ec190db7c5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;; write backup files to separate directory
(let ((dirname (expand-file-name
(concat user-emacs-directory "backups"))))
(when (not (file-directory-p dirname))
(make-directory dirname t))
(setq backup-directory-alist
`(("." . , dirname))))
;; version control backups
(setq delete-old-versions t
kept-new-versions 6
kept-old-versions 2
version-control t)
(provide 'init-backup)
|