[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master dfdeee839ac 2/2: Use directory-name-p in vc-git--file-list-is-roo
|
From: |
Dmitry Gutov |
|
Subject: |
master dfdeee839ac 2/2: Use directory-name-p in vc-git--file-list-is-rootdir |
|
Date: |
Sat, 28 Sep 2024 21:12:35 -0400 (EDT) |
branch: master
commit dfdeee839ac5475a7788707228dcbc998426ad7f
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>
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.
---
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 ()