bug#18605: 24.3.93; vc-svn-dir-status-files returns filenames prepended with spaces

[Stefan Monnier]

> Instead of
>   (("foo" . ignored) ("bar" . edited))
> I get
>   ((" foo" . ignored) (" bar" . edited))
> with
> svn, version 1.8.8 (r1568071)
>    compiled Aug 13 2014, 17:12:39 on x86_64-pc-linux-gnu

I installed the patch below.


        Stefan


=== modified file 'lisp/vc/vc-svn.el'
--- lisp/vc/vc-svn.el   2014-01-01 07:43:34 +0000
+++ lisp/vc/vc-svn.el   2014-10-03 00:27:34 +0000
@@ -195,7 +195,7 @@
                      (?~ . edited)))
        (re (if remote "^\\(.\\)\\(.\\).....? \\([ *]\\) +\\(?:[-0-9]+\\)?   
\\(.*\\)$"
              ;; Subexp 3 is a dummy in this case, so the numbers match.
-             "^\\(.\\)\\(.\\)...\\(.\\) \\(.*\\)$"))
+             "^\\(.\\)\\(.\\)...\\(.\\).? \\(.*\\)$"))
        result)
     (goto-char (point-min))
     (while (re-search-forward re nil t)