exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ignore inaccessible directories when searching for changed git repos

Browse Source
This commit is contained in:
Daniel Borchmann 2025-02-23 09:59:15 +01:00
parent be280ba373
commit 396ec4fca5
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
site-lisp/db-utils.el
View File

@ -665,8 +665,9 @@ quite sure whether something like this exists already?"
"\\`\\.git\\'" "\\`\\.git\\'"
:include-directories :include-directories
#'(lambda (subdir) #'(lambda (subdir)
(and (file-accessible-directory-p subdir)
(not (string-match "\\(\\.git\\|\\.minetest\\|\\.local/share/Trash\\)" (not (string-match "\\(\\.git\\|\\.minetest\\|\\.local/share/Trash\\)"
subdir))))) subdir))))))
(let* ((default-directory (file-name-directory dir)) (let* ((default-directory (file-name-directory dir))
(git-status (shell-command-to-string "git status -s -b")) (git-status (shell-command-to-string "git status -s -b"))
(has-uncommited-changes (string-match-p "^[^#]" git-status)) (has-uncommited-changes (string-match-p "^[^#]" git-status))