Mercurial > emacs

comparison lisp/vc-sccs.el @ 100205:569bd4097407

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-sccs-register-switches): Doc fix. Add t as option. (vc-sccs-register): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Thu, 04 Dec 2008 07:02:21 +0000
parents c3cf5c74dfe1
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
100204:30afce094fe2 100205:569bd4097407
43 ;; "List of extra directories to search for SCCS commands." 43 ;; "List of extra directories to search for SCCS commands."
44 ;; :type '(repeat directory) 44 ;; :type '(repeat directory)
45 ;; :group 'vc) 45 ;; :group 'vc)
46 46
47 (defcustom vc-sccs-register-switches nil 47 (defcustom vc-sccs-register-switches nil
48 "Extra switches for registering a file in SCCS. 48 "Switches for registering a file in SCCS.
49 A string or list of strings passed to the checkin program by 49 A string or list of strings passed to the checkin program by
50 \\[vc-sccs-register]." 50 \\[vc-register]. If nil, use the value of `vc-register-switches'.
51 :type '(choice (const :tag "None" nil) 51 If t, use no switches."
52 :type '(choice (const :tag "Unspecified" nil)
53 (const :tag "None" t)
52 (string :tag "Argument String") 54 (string :tag "Argument String")
53 (repeat :tag "Argument List" 55 (repeat :tag "Argument List" :value ("") string))
54 :value ("")
55 string))
56 :version "21.1" 56 :version "21.1"
57 :group 'vc) 57 :group 'vc)
58 58
59 (defcustom vc-sccs-diff-switches nil 59 (defcustom vc-sccs-diff-switches nil
60 "String or list of strings specifying switches for SCCS diff under VC. 60 "String or list of strings specifying switches for SCCS diff under VC.
196 (defun vc-sccs-create-repo () 196 (defun vc-sccs-create-repo ()
197 "Create a new SCCS repository." 197 "Create a new SCCS repository."
198 ;; SCCS is totally file-oriented, so all we have to do is make the directory 198 ;; SCCS is totally file-oriented, so all we have to do is make the directory
199 (make-directory "SCCS")) 199 (make-directory "SCCS"))
200 200
201 ;; FIXME doc is wrong re switches.
202 (defun vc-sccs-register (files &optional rev comment) 201 (defun vc-sccs-register (files &optional rev comment)
203 "Register FILES into the SCCS version-control system. 202 "Register FILES into the SCCS version-control system.
204 REV is the optional revision number for the file. COMMENT can be used 203 REV is the optional revision number for the file. COMMENT can be used
205 to provide an initial description of FILES. 204 to provide an initial description of FILES.
206 205 Passes either `vc-sccs-register-switches' or `vc-register-switches'
207 `vc-register-switches' and `vc-sccs-register-switches' are passed to 206 to the SCCS command.
208 the SCCS command (in that order).
209 207
210 Automatically retrieve a read-only version of the files with keywords 208 Automatically retrieve a read-only version of the files with keywords
211 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." 209 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
212 (dolist (file files) 210 (dolist (file files)
213 (let* ((dirname (or (file-name-directory file) "")) 211 (let* ((dirname (or (file-name-directory file) ""))