Mercurial > emacs
diff lisp/vc-svn.el @ 102974:04e540897dd1
(vc-svn-after-dir-status): Fix regexp to allow for
file names with leading spaces. Ignore "." if it appears as a
filename.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Wed, 15 Apr 2009 00:32:47 +0000 |
parents | 4eaca528c43f |
children | 276b0724ed86 |
line wrap: on
line diff
--- a/lisp/vc-svn.el Wed Apr 15 00:08:23 2009 +0000 +++ b/lisp/vc-svn.el Wed Apr 15 00:32:47 2009 +0000 @@ -164,7 +164,7 @@ (?? . unregistered) ;; This is what vc-svn-parse-status does. (?~ . edited))) - (re (if remote "^\\(.\\)..... \\([ *]\\) +\\(?:[-0-9]+\\)? +\\(.*\\)$" + (re (if remote "^\\(.\\)..... \\([ *]\\) +\\(?:[-0-9]+\\)? \\(.*\\)$" ;; Subexp 2 is a dummy in this case, so the numbers match. "^\\(.\\)....\\(.\\) \\(.*\\)$")) result) @@ -176,7 +176,7 @@ ;; FIXME are there other possible combinations? (cond ((eq state 'edited) (setq state 'needs-merge)) ((not state) (setq state 'needs-update)))) - (when state + (when (and state (not (string= "." filename))) (setq result (cons (list filename state) result))))) (funcall callback result)))