mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Fix #16897

Browse source 
* lisp/vc/vc-git.el (vc-git-command): Turn FILE-OR-LIST into nil when
it only contains the repository root.
This commit is contained in:
Dmitry Gutov 2014-03-08 08:56:22 +02:00
parent b646ea12bd
commit f0a4c8d764
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-03-08 Dmitry Gutov <dgutov@yandex.ru>
* vc/vc-git.el (vc-git-command): Turn FILE-OR-LIST into nil when
it only contains the repository root. (Bug#16897)
2014-03-07 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-handle-vc-registered): Run first pass

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

@ -1210,7 +1210,15 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
The difference to vc-do-command is that this function always invokes
`vc-git-program'."
(apply 'vc-do-command (or buffer "*vc*") okstatus vc-git-program
file-or-list (cons "--no-pager" flags)))
;; http://debbugs.gnu.org/16897
(unless (and (not (cdr-safe file-or-list))
(let ((file (or (car-safe file-or-list)
file-or-list)))
(and file
(eq ?/ (aref file (1- (length file))))
(equal file (vc-git-root file)))))
file-or-list)
(cons "--no-pager" flags)))
(defun vc-git--empty-db-p ()
"Check if the git db is empty (no commit done yet)."