procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use directory-name-p in vc-git--file-list-is-rootdir

Browse source 
* lisp/vc/vc-git.el (vc-git--file-list-is-rootdir):
Use directory-name-p.
This commit is contained in:
Dmitry Gutov 2024-09-29 04:11:52 +03:00
parent 8d9a4647fb
commit dfdeee839a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/vc/vc-git.el
View file

@ -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 ()