Mercurial > emacs
comparison lisp/vc-svn.el @ 101925:4eaca528c43f
(vc-svn-after-dir-status): Use shy group for revision
number as it isn't present for unregistered files.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Tue, 10 Feb 2009 05:59:14 +0000 |
| parents | 0dd7b7766a85 |
| children | 04e540897dd1 |
comparison
equal
deleted
inserted
replaced
| 101924:c1950714465b | 101925:4eaca528c43f |
|---|---|
| 162 (?M . edited) | 162 (?M . edited) |
| 163 (?R . removed) | 163 (?R . removed) |
| 164 (?? . unregistered) | 164 (?? . unregistered) |
| 165 ;; This is what vc-svn-parse-status does. | 165 ;; This is what vc-svn-parse-status does. |
| 166 (?~ . edited))) | 166 (?~ . edited))) |
| 167 (re (if remote "^\\(.\\)..... \\([ *]\\) +[-0-9]+ +\\(.*\\)$" | 167 (re (if remote "^\\(.\\)..... \\([ *]\\) +\\(?:[-0-9]+\\)? +\\(.*\\)$" |
| 168 ;; Subexp 2 is a dummy in this case, so the numbers match. | 168 ;; Subexp 2 is a dummy in this case, so the numbers match. |
| 169 "^\\(.\\)....\\(.\\) \\(.*\\)$")) | 169 "^\\(.\\)....\\(.\\) \\(.*\\)$")) |
| 170 result) | 170 result) |
| 171 (goto-char (point-min)) | 171 (goto-char (point-min)) |
| 172 (while (re-search-forward re nil t) | 172 (while (re-search-forward re nil t) |