diff lisp/vc-hg.el @ 92093:a0193ceeaa83

* vc.el (vc-exec-after): Move setting mode-line-process in the busy case ... (vc-set-mode-line-busy-indicator): ... in this new function. (vc-status-refresh): Call vc-set-mode-line-busy-indicator. (vc-update-vc-status-buffer): Reset mode-line-process. (vc-status-mark-all-files, vc-status-unmark-all-files): Change to mark/unmark all the files with the same state as the current one. With a prefix argument mark/unmark all files. (vc-status-mode-menu): Adjust strings. (vc-update-vc-status-buffer): Only do something when the argument is not nil. (vc-status-kill-dir-status-process): New function. (vc-status-mode-map): Bind it. (vc-status-process-buffer): New variable. (vc-status-mode): Make it local. (vc-status-refresh): Set it. * vc-hg.el (vc-hg-dir-status): * vc-git.el (vc-git-dir-status): * vc-svn.el (vc-svn-dir-status): Return the buffer in which the command is run.

--- a/lisp/vc-hg.el	Fri Feb 22 05:02:59 2008 +0000
+++ b/lisp/vc-hg.el	Fri Feb 22 07:44:08 2008 +0000
@@ -518,7 +518,8 @@
     (erase-buffer)
     (vc-hg-command (current-buffer) 'async dir "status")
     (vc-exec-after
-     `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))))
+     `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))
+    (current-buffer)))
 
 ;; XXX this adds another top level menu, instead figure out how to
 ;; replace the Log-View menu.