Emacs: Don’t make backups from auto-save-list files

1 files changed, 9 insertions, 0 deletions

diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el
index 7dfe26d..993efcd 100644
--- a/dot.emacs.d/init.el
+++ b/dot.emacs.d/init.el
@@ -27,6 +27,15 @@
       auto-save-timeout 20              ; number of seconds idle time before auto-save (default: 30)
       auto-save-interval 200            ; number of keystrokes between auto-saves (default: 300)
       )
+(defun qsx-backup-enable-predicate (name)
+  (let ((directory (file-name-directory (file-truename (expand-file-name name))))
+	(auto-save-list-directory
+	 (file-name-as-directory
+	  (file-truename (expand-file-name "auto-save-list" user-emacs-directory)))))
+    (if (string= directory auto-save-list-directory)
+	nil
+      (normal-backup-enable-predicate name))))
+(setq backup-enable-predicate #'qsx-backup-enable-predicate)
 
 (let ((default-directory
 	(concat user-emacs-directory