From 07c02e466161a139e0e9cd12aaff72028fb2a365 Mon Sep 17 00:00:00 2001 From: Thomas Schneider Date: Mon, 26 Aug 2024 16:27:46 +0200 Subject: Emacs: qsx-backup-enable-predicate: Canonicalise all names --- dot.emacs.d/init.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el index b87158c..a6ea5af 100644 --- a/dot.emacs.d/init.el +++ b/dot.emacs.d/init.el @@ -35,8 +35,10 @@ (let ((directory (file-name-directory (file-truename (expand-file-name name)))) (auto-save-list-directory - (file-name-as-directory - (locate-user-emacs-file "auto-save-list")))) + (file-truename + (expand-file-name + (file-name-as-directory + (locate-user-emacs-file "auto-save-list")))))) (if (string= directory auto-save-list-directory) nil (normal-backup-enable-predicate name)))) -- cgit v1.2.3