mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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