diff options
| author | Glenn Morris | 2013-10-09 14:49:32 -0400 |
|---|---|---|
| committer | Glenn Morris | 2013-10-09 14:49:32 -0400 |
| commit | 14afa541a6e28b69d2cb6f22bf0f2d22ab2d8b2d (patch) | |
| tree | b15aa735dfaa1ea216f48aae1083655e32130e54 /lisp/vc | |
| parent | ab7ce9783297397bba2daaf76f93e6a1186883d0 (diff) | |
| download | emacs-14afa541a6e28b69d2cb6f22bf0f2d22ab2d8b2d.tar.gz emacs-14afa541a6e28b69d2cb6f22bf0f2d22ab2d8b2d.zip | |
* lisp/vc/vc-svn.el (vc-svn-create-repo): Expand paths in file://... url.
Fixes: debbugs:15446
Diffstat (limited to 'lisp/vc')
| -rw-r--r-- | lisp/vc/vc-svn.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 293 | (defun vc-svn-create-repo () | 293 | (defun vc-svn-create-repo () |
| 294 | "Create a new SVN repository." | 294 | "Create a new SVN repository." |
| 295 | (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN")) | 295 | (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN")) |
| 296 | ;; Expand default-directory because svn gets confused by eg | ||
| 297 | ;; file://~/path/to/file. (Bug#15446). | ||
| 296 | (vc-svn-command "*vc*" 0 "." "checkout" | 298 | (vc-svn-command "*vc*" 0 "." "checkout" |
| 297 | (concat "file://" default-directory "SVN"))) | 299 | (concat "file://" (expand-file-name default-directory) "SVN"))) |
| 298 | 300 | ||
| 299 | (autoload 'vc-switches "vc") | 301 | (autoload 'vc-switches "vc") |
| 300 | 302 | ||