More keys for multiple cursors

[dotemacs] / lisp / my-backups.el

diff --git a/lisp/my-backups.el b/lisp/my-backups.el
index cb56fa9bbcc531114650a426139e89f8904953d5..360586b29c9dac876b8a8da481dfc6d443c79495 100644 (file)
--- a/lisp/my-backups.el
+++ b/lisp/my-backups.el
@@ -1,6 +1,28 @@
-(setq backup-directory-alist '(("." . "~/tmp/emacsbak")))
-(setq backup-by-copying t)
-(setq delete-old-versions t)
-(setq version-control t)
-(setq kept-new-versions 10)
-(setq kept-old-versions 0)
+;;; -*- lexical-binding: t -*-
+
+(setq create-lockfiles nil)
+
+
+(let ((dir "~/tmp/emacs-saves/"))
+  (unless (file-accessible-directory-p dir)
+    (make-directory dir))
+
+  (setq auto-save-file-name-transforms `((".*" ,dir t)))
+  (setq auto-save-interval 0)
+  (setq auto-save-timeout 30))
+
+
+(let ((dir "~/tmp/emacs-backups/"))
+  (unless (file-accessible-directory-p dir)
+    (make-directory dir))
+
+  (setq backup-directory-alist `(("." . ,dir)))
+
+  (setq vc-make-backup-files t)
+  (add-hook 'after-save-hook (lambda () (setq buffer-backed-up nil)))
+
+  (setq backup-by-copying t)
+  (setq version-control t)
+  (setq kept-new-versions 10)
+  (setq kept-old-versions 0)
+  (setq delete-old-versions t))