vc-short-log & vc-hg-incoming

vc-short-log & vc-hg-incoming

[Sam Steingold]

Hi,

Since revision 1.98
date: 2009-09-14 04:38:55 +0000;  author: dann;  state: Exp;  lines: +16 -5; 
commitid: zTuGmR2R6fnBqB3u;
* vc.el (top): print-log method now takes an optional SHORTLOG
argument.  Add a new method: root.

vc-hg-incoming no longer works because it calls vc-hg-incoming-mode which is 
vc-hg-log-view-mode which needs vc-short-log which is only bound in 
vc-print-log-internal.

this:

--- vc-hg.el.~1.100.~	2009-09-22 14:41:16.000000000 -0400
+++ vc-hg.el	2009-09-22 14:44:30.000777000 -0400
@@ -569,14 +569,14 @@ REV is the revision to check out into WO

  (defun vc-hg-outgoing ()
    (interactive)
-  (let ((bname "*Hg outgoing*"))
+  (let ((bname "*Hg outgoing*") (vc-short-log nil))
      (ignore-errors (vc-hg-command bname 0 nil "outgoing" "-n"))
      (pop-to-buffer bname)
      (vc-hg-outgoing-mode)))

  (defun vc-hg-incoming ()
    (interactive)
-  (let ((bname "*Hg incoming*"))
+  (let ((bname "*Hg incoming*") (vc-short-log nil))
      (ignore-errors (vc-hg-command bname 0 nil "incoming" "-n"))
      (pop-to-buffer bname)
      (vc-hg-incoming-mode)))

works as a temp fix, but I am sure a better and more general solution is needed.

Sam.