Mercurial > emacs
comparison lisp/vc-hg.el @ 105150:204d93911c98
(vc-hg-outgoing, vc-hg-incoming): use okstatus instead of ignore-errors
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Tue, 22 Sep 2009 23:48:19 +0000 |
| parents | 2f90a275183c |
| children | 09e3118c4c13 |
comparison
equal
deleted
inserted
replaced
| 105149:71b2d1ad08b6 | 105150:204d93911c98 |
|---|---|
| 568 ["Pull selected" vc-hg-pull])) | 568 ["Pull selected" vc-hg-pull])) |
| 569 | 569 |
| 570 (defun vc-hg-outgoing () | 570 (defun vc-hg-outgoing () |
| 571 (interactive) | 571 (interactive) |
| 572 (let ((bname "*Hg outgoing*")) | 572 (let ((bname "*Hg outgoing*")) |
| 573 (ignore-errors (vc-hg-command bname 0 nil "outgoing" "-n")) | 573 (vc-hg-command bname 1 nil "outgoing" "-n") |
| 574 (pop-to-buffer bname) | 574 (pop-to-buffer bname) |
| 575 (vc-hg-outgoing-mode))) | 575 (vc-hg-outgoing-mode))) |
| 576 | 576 |
| 577 (defun vc-hg-incoming () | 577 (defun vc-hg-incoming () |
| 578 (interactive) | 578 (interactive) |
| 579 (let ((bname "*Hg incoming*")) | 579 (let ((bname "*Hg incoming*")) |
| 580 (ignore-errors (vc-hg-command bname 0 nil "incoming" "-n")) | 580 (vc-hg-command bname 0 nil "incoming" "-n") |
| 581 (pop-to-buffer bname) | 581 (pop-to-buffer bname) |
| 582 (vc-hg-incoming-mode))) | 582 (vc-hg-incoming-mode))) |
| 583 | 583 |
| 584 (declare-function log-view-get-marked "log-view" ()) | 584 (declare-function log-view-get-marked "log-view" ()) |
| 585 | 585 |