From 8b0ac143055f3ccf1cbb73afa463ffdba9714e18 Mon Sep 17 00:00:00 2001 From: Ohad Livne Date: Fri, 11 Jul 2025 17:11:49 +0300 Subject: [PATCH] Create a named function for the autosave predicate --- .config/emacs/init.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 94dbd23..591c9dd 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -8,6 +8,10 @@ (zerop (call-process "git" nil nil nil "-C" dirname "ls-files" "--error-unmatch" filename)))) +(defun should-auto-save-current-buffer-p () + "Check whether the current buffer should be autosaved." + (git-tracked-file-p buffer-file-name)) + (defun find-init-file () "Find the user's init file" (interactive) @@ -42,7 +46,7 @@ ; keep-sorted start (auto-save-interval 20) (auto-save-visited-mode t) - (auto-save-visited-predicate (lambda () (git-tracked-file-p buffer-file-name))) + (auto-save-visited-predicate #'should-auto-save-current-buffer) (column-number-mode t) (dired-dwim-target 'dired-dwim-target-next) (display-time-24hr-format t)