Mercurial > emacs

comparison lisp/vc-svn.el @ 100206:0ae09d7be444

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-svn-register-switches): Doc fix. Add t as option. (vc-svn-register): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Thu, 04 Dec 2008 07:03:53 +0000
parents 9cc555e1a10e
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
100205:569bd4097407 100206:0ae09d7be444
50 string)) 50 string))
51 :version "22.1" 51 :version "22.1"
52 :group 'vc) 52 :group 'vc)
53 53
54 (defcustom vc-svn-register-switches nil 54 (defcustom vc-svn-register-switches nil
55 "Extra switches for registering a file into SVN. 55 "Switches for registering a file into SVN.
56 A string or list of strings passed to the checkin program by 56 A string or list of strings passed to the checkin program by
57 \\[vc-register]." 57 \\[vc-register]. If nil, use the value of `vc-register-switches'.
58 :type '(choice (const :tag "None" nil) 58 If t, use no switches."
59 :type '(choice (const :tag "Unspecified" nil)
60 (const :tag "None" t)
59 (string :tag "Argument String") 61 (string :tag "Argument String")
60 (repeat :tag "Argument List" 62 (repeat :tag "Argument List" :value ("") string))
61 :value ("")
62 string))
63 :version "22.1" 63 :version "22.1"
64 :group 'vc) 64 :group 'vc)
65 65
66 (defcustom vc-svn-diff-switches 66 (defcustom vc-svn-diff-switches
67 t ;`svn' doesn't support common args like -c or -b. 67 t ;`svn' doesn't support common args like -c or -b.
254 "Create a new SVN repository." 254 "Create a new SVN repository."
255 (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN")) 255 (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN"))
256 (vc-do-command "*vc*" 0 vc-svn-program '(".") 256 (vc-do-command "*vc*" 0 vc-svn-program '(".")
257 "checkout" (concat "file://" default-directory "SVN"))) 257 "checkout" (concat "file://" default-directory "SVN")))
258 258
259 ;; FIXME doc is wrong re switches.
260 (defun vc-svn-register (files &optional rev comment) 259 (defun vc-svn-register (files &optional rev comment)
261 "Register FILES into the SVN version-control system. 260 "Register FILES into the SVN version-control system.
262 The COMMENT argument is ignored This does an add but not a commit. 261 The COMMENT argument is ignored This does an add but not a commit.
263 262 Passes either `vc-svn-register-switches' or `vc-register-switches'
264 `vc-register-switches' and `vc-svn-register-switches' are passed to 263 to the SVN command."
265 the SVN command (in that order)."
266 (apply 'vc-svn-command nil 0 files "add" (vc-switches 'SVN 'register))) 264 (apply 'vc-svn-command nil 0 files "add" (vc-switches 'SVN 'register)))
267 265
268 (defun vc-svn-responsible-p (file) 266 (defun vc-svn-responsible-p (file)
269 "Return non-nil if SVN thinks it is responsible for FILE." 267 "Return non-nil if SVN thinks it is responsible for FILE."
270 (file-directory-p (expand-file-name vc-svn-admin-directory 268 (file-directory-p (expand-file-name vc-svn-admin-directory