From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 11 Jun 2007 18:41:09 +0000 (+0000)
Subject: (vc-svn-program): New var.
X-Git-Tag: emacs-pretest-23.0.90~12369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4cc3f57aa79387e1ef550bef9e971a66a6cc27f;p=emacs.git

(vc-svn-program): New var.
(vc-svn-command): Use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ab55f730a3..a9fefcfce89 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc-svn.el (vc-svn-program): New var.
+	(vc-svn-command): Use it.
+
 2007-06-11  Juanma Barranquero  <lekktu@gmail.com>
 
 	* server.el (server-switch-buffer): Remove redundant check.
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 1538a2a1ab3..b109f48d91d 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -464,11 +464,16 @@ NAME is assumed to be a URL."
 ;;; Internal functions
 ;;;
 
+(defcustom vc-svn-program "svn"
+  "Name of the svn executable."
+  :type 'string
+  :group 'vc)
+
 (defun vc-svn-command (buffer okstatus file &rest flags)
   "A wrapper around `vc-do-command' for use in vc-svn.el.
 The difference to vc-do-command is that this function always invokes `svn',
 and that it passes `vc-svn-global-switches' to it before FLAGS."
-  (apply 'vc-do-command buffer okstatus "svn" file
+  (apply 'vc-do-command buffer okstatus vc-svn-program file
          (if (stringp vc-svn-global-switches)
              (cons vc-svn-global-switches flags)
            (append vc-svn-global-switches