* vc/vc-git.el (vc-git-checkin): When operating on the whole tree

pass "-a".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a1f91b0e3d0069562cb73b57c1d4e72482d7cc8..b0648996b1307e9f3d95f47cae5134bfc66542c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-29  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * vc/vc-git.el (vc-git-checkin): When operating on the whole tree
+       pass "-a".
+
 2014-06-29  Glenn Morris  <rgm@gnu.org>
 
        * cus-edit.el (help):

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index c7cae8359bf6b72252fdb66017b30507946b71ff..9c8ab3ba3934d23293de3ae87f6aaf61f85a07d0 100644 (file)
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -674,7 +674,7 @@ It is based on `log-edit-mode', and has Git-specific extensions.")
     (cl-flet ((boolean-arg-fn
                (argument)
                (lambda (value) (when (equal value "yes") (list argument)))))
-      ;; When operating on the whole tree, better pass nil than ".", since "."
+      ;; When operating on the whole tree, better pass "-a" than ".", since "."
       ;; fails when we're committing a merge.
       (apply 'vc-git-command nil 0 (if only files)
              (nconc (list "commit" "-m")
@@ -684,7 +684,7 @@ It is based on `log-edit-mode', and has Git-specific extensions.")
                        ("Amend" . ,(boolean-arg-fn "--amend"))
                        ("Sign-Off" . ,(boolean-arg-fn "--signoff")))
                      comment)
-                    (if only (list "--only" "--")))))))
+                   (if only (list "--only" "--") '("-a")))))))
 
 (defun vc-git-find-revision (file rev buffer)
   (let* (process-file-side-effects