Mercurial > emacs
diff lisp/vc-hg.el @ 91951:d42fe75822fe
* vc.el (vc-status-menu, vc-status-menu-map-filter): New functions.
(vc-status-mode-menu): Add a :filter.
(vc-status-printer): Add faces.
* vc-hg.el (vc-hg-extra-status-menu): New function.
(vc-hg-dir-status): Clean up the buffer before using it.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 19 Feb 2008 07:10:33 +0000 |
| parents | 5d58981e6690 |
| children | b05f0b99514a |
line wrap: on
line diff
--- a/lisp/vc-hg.el Tue Feb 19 04:30:50 2008 +0000 +++ b/lisp/vc-hg.el Tue Feb 19 07:10:33 2008 +0000 @@ -475,6 +475,10 @@ (defun vc-hg-extra-menu () vc-hg-extra-menu-map) +(defun vc-hg-extra-status-menu () + '(["Show incoming" vc-hg-incoming] + ["Show outgoing" vc-hg-outgoing]) + (define-derived-mode vc-hg-outgoing-mode vc-hg-log-view-mode "Hg-Outgoing") (define-derived-mode vc-hg-incoming-mode vc-hg-log-view-mode "Hg-Incoming") @@ -511,6 +515,7 @@ (with-current-buffer (get-buffer-create (expand-file-name " *VC-hg* tmp status" dir)) + (erase-buffer) (vc-hg-command (current-buffer) 'async dir "status") (vc-exec-after `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))))