code.delx.au - dotemacs/blob - lisp/my-backups.el

   1 (setq create-lockfiles nil)
   2
   3
   4 (let ((dir "~/tmp/emacs-saves/"))
   5   (unless (file-accessible-directory-p dir)
   6     (make-directory dir))
   7
   8   (setq auto-save-file-name-transforms `((".*" ,dir t)))
   9   (setq auto-save-interval 0)
  10   (setq auto-save-timeout 30))
  11
  12
  13 (let ((dir "~/tmp/emacs-backups/"))
  14   (unless (file-accessible-directory-p dir)
  15     (make-directory dir))
  16
  17   (setq backup-directory-alist `(("." . ,dir)))
  18
  19   (setq vc-make-backup-files t)
  20   (add-hook 'after-save-hook (lambda () (setq buffer-backed-up nil)))
  21
  22   (setq backup-by-copying t)
  23   (setq version-control t)
  24   (setq kept-new-versions 10)
  25   (setq kept-old-versions 0)
  26   (setq delete-old-versions t))