mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

Make vc-tests work with MSYS svn program

Browse Source 
* lisp/vc/vc-svn.el (vc-svn-create-repo): Fix the file:// URL when
svn is an MSYS program.
This commit is contained in:
Fabrice Popineau 2015-07-07 18:06:53 +03:00 committed by Eli Zaretskii
parent b25770ab64
commit f800666409
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/vc/vc-svn.el
View File

@ -279,7 +279,13 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
;; Expand default-directory because svn gets confused by eg
;; file://~/path/to/file. (Bug#15446).
(vc-svn-command "*vc*" 0 "." "checkout"
(let ((defdir (expand-file-name default-directory)))
(let ((defdir (expand-file-name default-directory))
(svn-prog (executable-find "svn")))
(when (and (fboundp 'w32-application-type)
(eq (w32-application-type svn-prog) 'msys))
(setq defdir
(replace-regexp-in-string "^\\(.\\):/" "/\\1/"
defdir)))
(concat (if (and (stringp defdir)
(eq (aref defdir 0) ?/))
"file://"