[Emacs-diffs] emacs/lisp vc-mcvs.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/12/04 07:01:23

Modified files:
        lisp           : vc-mcvs.el 

Log message:
        (vc-mcvs-register-switches): Doc fix.  Add t as option.
        (vc-mcvs-register): Doc fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-mcvs.el?cvsroot=emacs&r1=1.49&r2=1.50

Patches:
Index: vc-mcvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-mcvs.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- vc-mcvs.el  3 Dec 2008 08:03:49 -0000       1.49
+++ vc-mcvs.el  4 Dec 2008 07:01:22 -0000       1.50
@@ -70,14 +70,14 @@
   :group 'vc)
 
 (defcustom vc-mcvs-register-switches nil
-  "Extra switches for registering a file into Meta-CVS.
+  "Switches for registering a file into Meta-CVS.
 A string or list of strings passed to the checkin program by
-\\[vc-register]."
-  :type '(choice (const :tag "None" nil)
+\\[vc-register].  If nil, use the value of `vc-register-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 "22.1"
   :group 'vc)
 
@@ -183,14 +183,12 @@
 ;;; State-changing functions
 ;;;
 
-;; FIXME the doc is wrong re switches.
 (defun vc-mcvs-register (files &optional rev comment)
   "Register FILES into the Meta-CVS version-control system.
 COMMENT can be used to provide an initial description of FILE.
-
-`vc-register-switches' and `vc-mcvs-register-switches' are passed to
-the Meta-CVS command (in that order)."
-  ;; FIXME: multiple-file case should be made to work
+Passes either `vc-mcvs-register-switches' or `vc-register-switches'
+to the Meta-CVS command."
+  ;; FIXME: multiple-file case should be made to work.
   (if (> (length files) 1) (error "Registering filesets is not yet 
supported."))
   (let* ((file (car files))
         (filename (file-name-nondirectory file))