diff options
author | Dmitry Gutov <dmitry@gutov.dev> | 2024-09-29 04:11:52 +0300 |
---|---|---|
committer | Dmitry Gutov <dmitry@gutov.dev> | 2024-09-29 04:11:52 +0300 |
commit | dfdeee839ac5475a7788707228dcbc998426ad7f (patch) | |
tree | 223d60a7474d560edf0bf365f4846880661ca626 | |
parent | 8d9a4647fbc6c57e82045ecd2b3f157ece399e9e (diff) |
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.
-rw-r--r-- | lisp/vc/vc-git.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 () |