+2009-04-15 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-svn.el (vc-svn-after-dir-status): Fix regexp to allow for
+ file names with leading spaces. Ignore "." if it appears as a
+ filename.
+
2009-04-14 Juanma Barranquero <lekktu@gmail.com>
* help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.
(?? . 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)
;; 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)))