# HG changeset patch # User Sam Steingold # Date 1253645025 0 # Node ID 2f90a275183c6038d5af645bd67851a968125827 # Parent 767b63857edd51433856ef6986e9f4770b061679 (vc-hg-outgoing, vc-hg-incoming): Ignore errors from `vc-hg-command' because hg returns status 1 when nothing is found. diff -r 767b63857edd -r 2f90a275183c lisp/ChangeLog --- a/lisp/ChangeLog Tue Sep 22 18:16:48 2009 +0000 +++ b/lisp/ChangeLog Tue Sep 22 18:43:45 2009 +0000 @@ -1,6 +1,8 @@ 2009-09-22 Sam Steingold * vc-hg.el (vc-hg-print-log): Fix shortlog arg passing. + (vc-hg-outgoing, vc-hg-incoming): Ignore errors from + `vc-hg-command' because hg returns status 1 when nothing is found. 2009-09-22 Stefan Monnier diff -r 767b63857edd -r 2f90a275183c lisp/vc-hg.el --- a/lisp/vc-hg.el Tue Sep 22 18:16:48 2009 +0000 +++ b/lisp/vc-hg.el Tue Sep 22 18:43:45 2009 +0000 @@ -570,14 +570,14 @@ (defun vc-hg-outgoing () (interactive) (let ((bname "*Hg outgoing*")) - (vc-hg-command bname 0 nil "outgoing" "-n") + (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*")) - (vc-hg-command bname 0 nil "incoming" "-n") + (ignore-errors (vc-hg-command bname 0 nil "incoming" "-n")) (pop-to-buffer bname) (vc-hg-incoming-mode)))