[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp vc-mcvs.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp vc-mcvs.el |
Date: |
Thu, 04 Dec 2008 07:01:23 +0000 |
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))