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) |