From 396ec4fca549eaf97081430d3cbb29da26b63c0a Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 23 Feb 2025 09:59:15 +0100 Subject: [PATCH] Ignore inaccessible directories when searching for changed git repos --- site-lisp/db-utils.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 6b83abb..b8a5e3e 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -665,8 +665,9 @@ quite sure whether something like this exists already?" "\\`\\.git\\'" :include-directories #'(lambda (subdir) - (not (string-match "\\(\\.git\\|\\.minetest\\|\\.local/share/Trash\\)" - subdir))))) + (and (file-accessible-directory-p subdir) + (not (string-match "\\(\\.git\\|\\.minetest\\|\\.local/share/Trash\\)" + subdir)))))) (let* ((default-directory (file-name-directory dir)) (git-status (shell-command-to-string "git status -s -b")) (has-uncommited-changes (string-match-p "^[^#]" git-status))