Mercurial > emacs
comparison lisp/vc-cvs.el @ 93382:8e46096e0cb3
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 29 Mar 2008 05:34:52 +0000 |
| parents | 0dcb59446144 |
| children | 3afeea9a48a3 |
comparison
equal
deleted
inserted
replaced
| 93381:e6a15031fc81 | 93382:8e46096e0cb3 |
|---|---|
| 925 (t 'edited))) | 925 (t 'edited))) |
| 926 (unless (eq status 'up-to-date) | 926 (unless (eq status 'up-to-date) |
| 927 (push (cons file status) result)))))) | 927 (push (cons file status) result)))))) |
| 928 (goto-char (point-max)) | 928 (goto-char (point-max)) |
| 929 (widen)) | 929 (widen)) |
| 930 ;; Remove the temporary buffer. | |
| 931 (kill-buffer (current-buffer)) | |
| 932 (funcall update-function result status-buffer))) | 930 (funcall update-function result status-buffer))) |
| 933 | 931 |
| 934 ;; XXX Experimental function for the vc-dired replacement. | 932 ;; XXX Experimental function for the vc-dired replacement. |
| 935 (defun vc-cvs-dir-status (dir update-function status-buffer) | 933 (defun vc-cvs-dir-status (dir update-function status-buffer) |
| 936 "Create a list of conses (file . state) for DIR." | 934 "Create a list of conses (file . state) for DIR." |
| 937 (with-current-buffer | 935 (vc-cvs-command (current-buffer) 'async dir "status") |
| 938 (get-buffer-create (expand-file-name " *VC-cvs* tmp status" dir)) | 936 (vc-exec-after |
| 939 (erase-buffer) | 937 `(vc-cvs-after-dir-status (quote ,update-function) ,status-buffer))) |
| 940 (vc-cvs-command (current-buffer) 'async dir "status") | |
| 941 (vc-exec-after | |
| 942 `(vc-cvs-after-dir-status (quote ,update-function) ,status-buffer)) | |
| 943 (current-buffer))) | |
| 944 | 938 |
| 945 (defun vc-cvs-get-entries (dir) | 939 (defun vc-cvs-get-entries (dir) |
| 946 "Insert the CVS/Entries file from below DIR into the current buffer. | 940 "Insert the CVS/Entries file from below DIR into the current buffer. |
| 947 This function ensures that the correct coding system is used for that, | 941 This function ensures that the correct coding system is used for that, |
| 948 which may not be the one that is used for the files' contents. | 942 which may not be the one that is used for the files' contents. |