Mercurial > emacs
comparison lisp/vc-svn.el @ 106521:3ecd902dead9
(vc-svn-after-dir-status): Fix regexp. (Bug#4741)
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 10 Dec 2009 14:24:42 +0000 |
| parents | 6e0f1038bc44 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 106520:6d90ad0a3723 | 106521:3ecd902dead9 |
|---|---|
| 164 (?D . removed) | 164 (?D . removed) |
| 165 (?R . removed) | 165 (?R . removed) |
| 166 (?? . unregistered) | 166 (?? . unregistered) |
| 167 ;; This is what vc-svn-parse-status does. | 167 ;; This is what vc-svn-parse-status does. |
| 168 (?~ . edited))) | 168 (?~ . edited))) |
| 169 (re (if remote "^\\(.\\)..... \\([ *]\\) +\\(?:[-0-9]+\\)? \\(.*\\)$" | 169 (re (if remote "^\\(.\\)...... \\([ *]\\) +\\(?:[-0-9]+\\)? \\(.*\\)$" |
| 170 ;; Subexp 2 is a dummy in this case, so the numbers match. | 170 ;; Subexp 2 is a dummy in this case, so the numbers match. |
| 171 "^\\(.\\)....\\(.\\) \\(.*\\)$")) | 171 "^\\(.\\)....\\(.\\) \\(.*\\)$")) |
| 172 result) | 172 result) |
| 173 (goto-char (point-min)) | 173 (goto-char (point-min)) |
| 174 (while (re-search-forward re nil t) | 174 (while (re-search-forward re nil t) |