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)