[Emacs-diffs] emacs-24 r117326: * vc/vc-git.el (vc-git-checkin): When operating on the whole tree

[Andreas Schwab]

------------------------------------------------------------
revno: 117326
revision-id: address@hidden
parent: address@hidden
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sun 2014-06-29 22:48:55 +0200
message:
  * vc/vc-git.el (vc-git-checkin): When operating on the whole tree
  pass "-a".
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/vc-git.el              vcgit.el-20091113204419-o5vbwnq5f7feedwu-5070

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-29 02:33:50 +0000
+++ b/lisp/ChangeLog    2014-06-29 20:48:55 +0000
@@ -1,3 +1,8 @@
+2014-06-29  Andreas Schwab  <address@hidden>
+
+       * vc/vc-git.el (vc-git-checkin): When operating on the whole tree
+       pass "-a".
+
 2014-06-29  Glenn Morris  <address@hidden>
 
        * cus-edit.el (help):

=== modified file 'lisp/vc/vc-git.el'
--- a/lisp/vc/vc-git.el 2014-03-08 06:56:22 +0000
+++ b/lisp/vc/vc-git.el 2014-06-29 20:48:55 +0000
@@ -674,7 +674,7 @@
     (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 @@
                        ("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