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

Fixes: debbugs:15446
This commit is contained in:
Glenn Morris 2013-10-09 14:49:32 -04:00
parent ab7ce97832
commit 14afa541a6
2 changed files with 6 additions and 1 deletions

View file

@ -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.

View file

@ -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")