diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-29 05:34:52 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-29 05:34:52 +0000 |
commit | fb37089776f0032c20c321bb755ba8eb1792c3d0 (patch) | |
tree | 61fa2cc5d7a9e2a779d64fa776b9fb08e9d6d7a0 /lisp/vc-hg.el | |
parent | 751cc803784ca328030adb09aa54fd153ecda083 (diff) | |
download | emacs-fb37089776f0032c20c321bb755ba8eb1792c3d0.tar.gz |
* vc.el (vc-status-menu-map, vc-status-mode-map): Bind vc-revert.
(vc-status-refresh): Create a temporary buffer and call the
`dir-status' backend function from that buffer.
* vc-bzr.el (vc-bzr-dir-status): Don't create a buffer.
(vc-bzr-after-dir-status): Don't kill the buffer.
* vc-cvs.el (vc-cvs-dir-status): Don't create a buffer.
(vc-cvs-after-dir-status): Don't kill the buffer.
* vc-git.el (vc-git-dir-status): Don't create a buffer.
(vc-git-after-dir-status-stage2): Don't kill the buffer.
* vc-hg.el (vc-hg-dir-status): Don't create a buffer.
(vc-hg-after-dir-status): Don't kill the buffer.
* vc-svn.el (vc-svn-dir-status): Don't create a buffer.
(vc-svn-after-dir-status): Don't kill the buffer.
Diffstat (limited to 'lisp/vc-hg.el')
-rw-r--r-- | lisp/vc-hg.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index abf64a7f987..b3f95471fc0 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -498,21 +498,15 @@ REV is the revision to check out into WORKFILE." (when (and translated (not (eq (cdr translated) 'up-to-date))) (push (cons file (cdr translated)) result)) (forward-line)) - ;; Remove the temporary buffer. - (kill-buffer (current-buffer)) (funcall update-function result status-buffer))) ;; XXX Experimental function for the vc-dired replacement. (defun vc-hg-dir-status (dir update-function status-buffer) "Return a list of conses (file . state) for DIR." - (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)) - (current-buffer))) + (erase-buffer) + (vc-hg-command (current-buffer) 'async dir "status") + (vc-exec-after + `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))) ;; XXX this adds another top level menu, instead figure out how to ;; replace the Log-View menu. |