From 2737b904b3043e0a702fd1498662c4e86c99a2b1 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 29 Sep 2024 04:11:52 +0300 Subject: [PATCH] Use directory-name-p in vc-git--file-list-is-rootdir * lisp/vc/vc-git.el (vc-git--file-list-is-rootdir): Use directory-name-p. (cherry picked from commit dfdeee839ac5475a7788707228dcbc998426ad7f) --- lisp/vc/vc-git.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 2a7c8ae5fc4..05400523048 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -2211,7 +2211,7 @@ The difference to `vc-do-command' is that this function always invokes (let ((file (or (car-safe file-or-list) file-or-list))) (and file - (eq ?/ (aref file (1- (length file)))) + (directory-name-p file) (equal file (vc-git-root file)))))) (defun vc-git--empty-db-p () -- 2.39.5