Mercurial > emacs
comparison lisp/vc-svn.el @ 93461:3afeea9a48a3
* vc.el (vc-status-add-entry): Assume ENTRY is a list not a cons.
(vc-status-mark-buffer-changed): Handle the extra field.
* vc-bzr.el (vc-bzr-after-dir-status):
* vc-cvs.el (vc-cvs-after-dir-status):
* vc-hg.el (vc-hg-after-dir-status):
* vc-svn.el (vc-svn-after-dir-status): Return a list not a cons.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 31 Mar 2008 15:36:56 +0000 |
| parents | 8e46096e0cb3 |
| children | ed131d081eab |
comparison
equal
deleted
inserted
replaced
| 93460:1f7e9d28dedf | 93461:3afeea9a48a3 |
|---|---|
| 172 (goto-char (point-min)) | 172 (goto-char (point-min)) |
| 173 (while (re-search-forward "^\\(.\\)..... \\(.*\\)$" nil t) | 173 (while (re-search-forward "^\\(.\\)..... \\(.*\\)$" nil t) |
| 174 (let ((state (cdr (assq (aref (match-string 1) 0) state-map))) | 174 (let ((state (cdr (assq (aref (match-string 1) 0) state-map))) |
| 175 (filename (match-string 2))) | 175 (filename (match-string 2))) |
| 176 (when state | 176 (when state |
| 177 (setq result (cons (cons filename state) result))))) | 177 (setq result (cons (list filename state) result))))) |
| 178 (funcall callback result buffer))) | 178 (funcall callback result buffer))) |
| 179 | 179 |
| 180 (defun vc-svn-dir-status (dir callback buffer) | 180 (defun vc-svn-dir-status (dir callback buffer) |
| 181 "Run 'svn status' for DIR and update BUFFER via CALLBACK. | 181 "Run 'svn status' for DIR and update BUFFER via CALLBACK. |
| 182 CALLBACK is called as (CALLBACK RESULT BUFFER), where | 182 CALLBACK is called as (CALLBACK RESULT BUFFER), where |