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 |