From: Glenn Morris Date: Wed, 9 Oct 2013 18:49:32 +0000 (-0400) Subject: * lisp/vc/vc-svn.el (vc-svn-create-repo): Expand paths in file://... url. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1315 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14afa541a6e28b69d2cb6f22bf0f2d22ab2d8b2d;p=emacs.git * 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 cac34a3d314..6d58882e9e7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-10-09 Glenn Morris + * 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 1fd51dd2148..d569349461f 100644 --- 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")