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-svn.el | |
parent | f3d57a2c20d2916f8515a6e334cdc3dca4e12b4e (diff) | |
download | emacs-115c0061772238c4118c271903336405d35416e7.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-svn.el')
-rw-r--r-- | lisp/vc-svn.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index c50434c4630..5e65d342f34 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -175,19 +175,15 @@ If you want to force an empty list of arguments, use t." (filename (match-string 2))) (when state (setq result (cons (cons filename state) result))))) - (kill-buffer (current-buffer)) (funcall callback result buffer))) (defun vc-svn-dir-status (dir callback buffer) "Run 'svn status' for DIR and update BUFFER via CALLBACK. CALLBACK is called as (CALLBACK RESULT BUFFER), where RESULT is a list of conses (FILE . STATE) for directory DIR." - (with-current-buffer (get-buffer-create - (generate-new-buffer-name " *vc svn status*")) - (vc-svn-command (current-buffer) 'async nil "status") - (vc-exec-after - `(vc-svn-after-dir-status (quote ,callback) ,buffer)) - (current-buffer))) + (vc-svn-command (current-buffer) 'async nil "status") + (vc-exec-after + `(vc-svn-after-dir-status (quote ,callback) ,buffer))) (defun vc-svn-working-revision (file) "SVN-specific version of `vc-working-revision'." |