Commit 0aa4f295 authored by Sam Steingold's avatar Sam Steingold
Browse files

(vc-hg-outgoing, vc-hg-incoming): Bind `vc-short-log' for the sake of `vc-hg-log-view-mode'.

parent 71630ffe
......@@ -3,6 +3,7 @@
* vc-hg.el (vc-hg-print-log): Fix shortlog arg passing.
(vc-hg-outgoing, vc-hg-incoming): Bump okstatus in `vc-hg-command'
to 1 because hg returns status 1 when nothing is found.
Bind `vc-short-log' for the sake of `vc-hg-log-view-mode'.
2009-09-22 Stefan Monnier <>
......@@ -569,14 +569,14 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-outgoing ()
(let ((bname "*Hg outgoing*"))
(let ((bname "*Hg outgoing*") (vc-short-log nil))
(vc-hg-command bname 1 nil "outgoing" "-n")
(pop-to-buffer bname)
(defun vc-hg-incoming ()
(let ((bname "*Hg incoming*"))
(let ((bname "*Hg incoming*") (vc-short-log nil))
(vc-hg-command bname 0 nil "incoming" "-n")
(pop-to-buffer bname)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment