diff lisp/vc-git.el @ 108885:b008fff91985

vc-log-incoming/vc-log-outgoing improvements for Git. * lisp/vc-git.el (vc-git-log-outgoing): Use the same format as the short log. (vc-git-log-incoming): Likewise. Run "git fetch" before the log command.

--- a/lisp/vc-git.el	Thu Jun 03 16:08:26 2010 -0700
+++ b/lisp/vc-git.el	Thu Jun 03 16:26:39 2010 -0700
@@ -622,23 +622,29 @@
 	  (when (string-match "\\([^\n]+\\)" remote)
 	    (setq remote (match-string 1 remote)))))))
 
-
 (defun vc-git-log-outgoing (buffer remote-location)
   (interactive)
   (vc-git-command
    buffer 0 nil
-   "log" (if (string= remote-location "")
-	     (concat (vc-git-compute-remote) "..HEAD")
-	   remote-location)))
-
+   "log"
+   "--no-color" "--graph" "--decorate" "--date=short"
+   "--pretty=tformat:%d%h  %ad  %s" "--abbrev-commit" 
+   (concat (if (string= remote-location "")
+	       (vc-git-compute-remote)
+	     remote-location)
+	   "..HEAD")))
 
 (defun vc-git-log-incoming (buffer remote-location)
   (interactive)
+  (vc-git-command nil 0 nil "fetch")
   (vc-git-command
    buffer 0 nil
-   "log" (if (string= remote-location "")
-	     (concat "HEAD.." (vc-git-compute-remote))
-	   remote-location)))
+   "log" 
+   "--no-color" "--graph" "--decorate" "--date=short"
+   "--pretty=tformat:%d%h  %ad  %s" "--abbrev-commit" 
+   (concat "HEAD.." (if (string= remote-location "")
+			(vc-git-compute-remote)
+		      remote-location))))
 
 (defvar log-view-message-re)
 (defvar log-view-file-re)