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

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