* lisp/vc/vc-svn.el (vc-svn-create-repo): Expand paths in file://... url.

Fixes: debbugs:15446

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cac34a3d31409e18b8653ac4cf73eba01108fd41..6d58882e9e7b2b4d1b6b44608f86df4d07377fa4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-10-09  Glenn Morris  <rgm@gnu.org>
 
+       * vc/vc-svn.el (vc-svn-create-repo):
+       Expand paths in file://... url.  (Bug#15446)
+
        * emacs-lisp/authors.el (authors-aliases, authors-fixed-case):
        Add some entries.
        (authors): Remove unused local variables.

diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index 1fd51dd21485f12bd5a2e0642401944eb2b9e790..d569349461f32ffb993fe99401a60329a0310fb7 100644 (file)
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -293,8 +293,10 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
 (defun vc-svn-create-repo ()
   "Create a new SVN repository."
   (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN"))
+  ;; Expand default-directory because svn gets confused by eg
+  ;; file://~/path/to/file.  (Bug#15446).
   (vc-svn-command "*vc*" 0 "." "checkout"
-                  (concat "file://" default-directory "SVN")))
+                  (concat "file://" (expand-file-name default-directory) "SVN")))
 
 (autoload 'vc-switches "vc")