From 14afa541a6e28b69d2cb6f22bf0f2d22ab2d8b2d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 9 Oct 2013 14:49:32 -0400 Subject: [PATCH] * lisp/vc/vc-svn.el (vc-svn-create-repo): Expand paths in file://... url. Fixes: debbugs:15446 --- lisp/ChangeLog | 3 +++ lisp/vc/vc-svn.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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") -- 2.39.5