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 <monnier@iro.umontreal.ca>
......
......@@ -569,14 +569,14 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-outgoing ()
(interactive)
(let ((bname "*Hg outgoing*"))
(let ((bname "*Hg outgoing*") (vc-short-log nil))
(vc-hg-command bname 1 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))
(vc-hg-command bname 0 nil "incoming" "-n")
(pop-to-buffer bname)
(vc-hg-incoming-mode)))
......
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