Mercurial > emacs
comparison lisp/vc-git.el @ 94847:5e64dca662f0
Remove assumption about what nil means as a first arument to vc-do-command.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Sat, 10 May 2008 13:27:16 +0000 |
| parents | eedf64b515f0 |
| children | 4da572dc4992 |
comparison
equal
deleted
inserted
replaced
| 94846:1a6e4ea4e517 | 94847:5e64dca662f0 |
|---|---|
| 693 (vc-find-root file ".git")) | 693 (vc-find-root file ".git")) |
| 694 | 694 |
| 695 (defun vc-git-command (buffer okstatus file-or-list &rest flags) | 695 (defun vc-git-command (buffer okstatus file-or-list &rest flags) |
| 696 "A wrapper around `vc-do-command' for use in vc-git.el. | 696 "A wrapper around `vc-do-command' for use in vc-git.el. |
| 697 The difference to vc-do-command is that this function always invokes `git'." | 697 The difference to vc-do-command is that this function always invokes `git'." |
| 698 (apply 'vc-do-command buffer okstatus "git" file-or-list flags)) | 698 (apply 'vc-do-command (or buffer "*vc*") okstatus "git" file-or-list flags)) |
| 699 | 699 |
| 700 (defun vc-git--empty-db-p () | 700 (defun vc-git--empty-db-p () |
| 701 "Check if the git db is empty (no commit done yet)." | 701 "Check if the git db is empty (no commit done yet)." |
| 702 (not (eq 0 (vc-git--call nil "rev-parse" "--verify" "HEAD")))) | 702 (not (eq 0 (vc-git--call nil "rev-parse" "--verify" "HEAD")))) |
| 703 | 703 |