[Emacs-diffs] trunk r114595: * lisp/vc/vc-svn.el (vc-svn-create-repo): Expand paths in file://... url.

[Glenn Morris]

------------------------------------------------------------
revno: 114595
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15446
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-10-09 14:49:32 -0400
message:
  * lisp/vc/vc-svn.el (vc-svn-create-repo): Expand paths in file://... url.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/vc-svn.el              vcsvn.el-20091113204419-o5vbwnq5f7feedwu-2575

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-09 17:10:08 +0000
+++ b/lisp/ChangeLog    2013-10-09 18:49:32 +0000
@@ -1,5 +1,8 @@
 2013-10-09  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'lisp/vc/vc-svn.el'
--- a/lisp/vc/vc-svn.el 2013-10-04 23:47:00 +0000
+++ b/lisp/vc/vc-svn.el 2013-10-09 18:49:32 +0000
@@ -293,8 +293,10 @@
 (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")