(vc-svn-program): New var.
(vc-svn-command): Use it.
This commit is contained in:
parent
29d6966179
commit
e4cc3f57aa
2 changed files with 11 additions and 1 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue