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 | 115c0061772238c4118c271903336405d35416e7 (patch) | |
| tree | 3a2eb12205c25c977e35dda23e7e7d8436bc2050 /lisp/vc-cvs.el | |
| parent | f3d57a2c20d2916f8515a6e334cdc3dca4e12b4e (diff) | |
| download | emacs-115c0061772238c4118c271903336405d35416e7.tar.gz emacs-115c0061772238c4118c271903336405d35416e7.tar.bz2 emacs-115c0061772238c4118c271903336405d35416e7.zip | |
* 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-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 0d1a2be9164..0d76eb3902e 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -927,20 +927,14 @@ state." (push (cons file status) result)))))) (goto-char (point-max)) (widen)) - ;; Remove the temporary buffer. - (kill-buffer (current-buffer)) (funcall update-function result status-buffer))) ;; XXX Experimental function for the vc-dired replacement. (defun vc-cvs-dir-status (dir update-function status-buffer) "Create a list of conses (file . state) for DIR." - (with-current-buffer - (get-buffer-create (expand-file-name " *VC-cvs* tmp status" dir)) - (erase-buffer) - (vc-cvs-command (current-buffer) 'async dir "status") - (vc-exec-after - `(vc-cvs-after-dir-status (quote ,update-function) ,status-buffer)) - (current-buffer))) + (vc-cvs-command (current-buffer) 'async dir "status") + (vc-exec-after + `(vc-cvs-after-dir-status (quote ,update-function) ,status-buffer))) (defun vc-cvs-get-entries (dir) "Insert the CVS/Entries file from below DIR into the current buffer. |