From 85238aa8eb6385ea33630e4c51648aaa2b86e32a Mon Sep 17 00:00:00 2001 From: Thomas Schneider Date: Tue, 13 Jul 2021 18:25:13 +0200 Subject: Emacs: Don’t make backups from auto-save-list files MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- dot.emacs.d/init.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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 -- cgit v1.2.3