# HG changeset patch # User Sam Steingold # Date 1253663299 0 # Node ID 204d93911c9892a54d79b2842614c535dd5f5c4c # Parent 71b2d1ad08b6f2e4cc2e4572152b1a07dd1f42f7 (vc-hg-outgoing, vc-hg-incoming): use okstatus instead of ignore-errors diff -r 71b2d1ad08b6 -r 204d93911c98 lisp/ChangeLog --- a/lisp/ChangeLog Tue Sep 22 19:49:57 2009 +0000 +++ b/lisp/ChangeLog Tue Sep 22 23:48:19 2009 +0000 @@ -1,8 +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. + (vc-hg-outgoing, vc-hg-incoming): Bump okstatus in `vc-hg-command' + to 1 because hg returns status 1 when nothing is found. 2009-09-22 Stefan Monnier diff -r 71b2d1ad08b6 -r 204d93911c98 lisp/vc-hg.el --- a/lisp/vc-hg.el Tue Sep 22 19:49:57 2009 +0000 +++ b/lisp/vc-hg.el Tue Sep 22 23:48:19 2009 +0000 @@ -570,14 +570,14 @@ (defun vc-hg-outgoing () (interactive) (let ((bname "*Hg outgoing*")) - (ignore-errors (vc-hg-command bname 0 nil "outgoing" "-n")) + (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*")) - (ignore-errors (vc-hg-command bname 0 nil "incoming" "-n")) + (vc-hg-command bname 0 nil "incoming" "-n") (pop-to-buffer bname) (vc-hg-incoming-mode)))