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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/12/03 07:38:25

Modified files:
        lisp           : vc-mcvs.el 

Log message:
        Set maintainer as FSF rather than "None".
        (vc-mcvs-diff-switches): Doc fix.

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

Patches:
Index: vc-mcvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-mcvs.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- vc-mcvs.el  3 Dec 2008 05:48:34 -0000       1.47
+++ vc-mcvs.el  3 Dec 2008 07:38:25 -0000       1.48
@@ -1,9 +1,10 @@
 ;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system
 
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, 
Inc.
+;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
+;;   Free Software Foundation, Inc.
 
 ;; Author:      FSF (see vc.el for full credits)
-;; Maintainer:  None
+;; Maintainer:  FSF
 
 ;; This file is part of GNU Emacs.
 
@@ -64,9 +65,7 @@
   "Global switches to pass to any Meta-CVS command."
   :type '(choice (const :tag "None" nil)
                 (string :tag "Argument String")
-                (repeat :tag "Argument List"
-                        :value ("")
-                        string))
+                (repeat :tag "Argument List" :value ("") string))
   :version "22.1"
   :group 'vc)
 
@@ -83,12 +82,12 @@
   :group 'vc)
 
 (defcustom vc-mcvs-diff-switches nil
-  "A string or list of strings specifying extra switches for cvs diff under 
VC."
-    :type '(choice (const :tag "None" nil)
+  "String or list of strings specifying switches for Meta-CVS 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 "22.1"
   :group 'vc)
 
@@ -184,6 +183,7 @@
 ;;; 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.