(vc-svn-program): New var.

(vc-svn-command): Use it.
This commit is contained in:
Stefan Monnier 2007-06-11 18:41:09 +00:00
parent 29d6966179
commit e4cc3f57aa
2 changed files with 11 additions and 1 deletions

View file

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

View file

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