# HG changeset patch # User Glenn Morris # Date 1228290053 0 # Node ID c3cf5c74dfe14dc435c5e2f05facd5a55d2d14c4 # Parent 0cc235691369372f97bd520b3dc7ffb1ad5f5b25 (vc-sccs-diff-switches): Doc fix. Add t as option. (vc-sccs-register-switches): Remove leading * from doc. diff -r 0cc235691369 -r c3cf5c74dfe1 lisp/vc-sccs.el --- a/lisp/vc-sccs.el Wed Dec 03 07:39:20 2008 +0000 +++ b/lisp/vc-sccs.el Wed Dec 03 07:40:53 2008 +0000 @@ -45,7 +45,7 @@ ;; :group 'vc) (defcustom vc-sccs-register-switches nil - "*Extra switches for registering a file in SCCS. + "Extra switches for registering a file in SCCS. A string or list of strings passed to the checkin program by \\[vc-sccs-register]." :type '(choice (const :tag "None" nil) @@ -57,13 +57,12 @@ :group 'vc) (defcustom vc-sccs-diff-switches nil - "A string or list of strings specifying extra switches for `vcdiff', -the diff utility used for SCCS under VC." - :type '(choice (const :tag "None" nil) + "String or list of strings specifying switches for SCCS diff under VC. +If nil, use the value of `vc-diff-switches'. If t, use no switches." + :type '(choice (const :tag "Unspecified" nil) + (const :tag "None" t) (string :tag "Argument String") - (repeat :tag "Argument List" - :value ("") - string)) + (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc) @@ -199,6 +198,7 @@ ;; SCCS is totally file-oriented, so all we have to do is make the directory (make-directory "SCCS")) +;; FIXME doc is wrong re switches. (defun vc-sccs-register (files &optional rev comment) "Register FILES into the SCCS version-control system. REV is the optional revision number for the file. COMMENT can be used