[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el

[Andre Spiegel]

Index: emacs/lisp/vc-rcs.el
diff -c emacs/lisp/vc-rcs.el:1.23 emacs/lisp/vc-rcs.el:1.24
*** emacs/lisp/vc-rcs.el:1.23   Mon Feb 25 17:04:29 2002
--- emacs/lisp/vc-rcs.el        Mon Mar 18 12:17:38 2002
***************
*** 5,11 ****
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-rcs.el,v 1.23 2002/02/25 22:04:29 spiegel Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,11 ----
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-rcs.el,v 1.24 2002/03/18 17:17:38 spiegel Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 58,85 ****
    :version "21.1"
    :group 'vc)
  
- (defcustom vc-rcs-checkin-switches nil
-   "*A string or list of strings specifying extra switches for RCS checkin.
- These are passed to the checkin program by \\[vc-rcs-checkin]."
-   :type '(choice (const :tag "None" nil)
-                (string :tag "Argument String")
-                (repeat :tag "Argument List"
-                        :value ("")
-                        string))
-   :version "21.1"
-   :group 'vc)
- 
- (defcustom vc-rcs-checkout-switches nil
-   "*A string or list of strings specifying extra switches for RCS checkout.
- These are passed to the checkout program by \\[vc-rcs-checkout]."
-   :type '(choice (const :tag "None" nil)
-                (string :tag "Argument String")
-                (repeat :tag "Argument List"
-                        :value ("")
-                        string))
-   :version "21.1"
-   :group 'vc)
- 
  (defcustom vc-rcs-diff-switches nil
    "*A string or list of strings specifying extra switches for rcsdiff under 
VC."
    :type '(choice (const :tag "None" nil)
--- 58,63 ----
***************
*** 254,260 ****
  Automatically retrieve a read-only version of the file with keywords
  expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
      (let ((subdir (expand-file-name "RCS" (file-name-directory file)))
!         (switches (list
                     (if (stringp vc-register-switches)
                         (list vc-register-switches)
                       vc-register-switches)
--- 232,238 ----
  Automatically retrieve a read-only version of the file with keywords
  expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
      (let ((subdir (expand-file-name "RCS" (file-name-directory file)))
!         (switches (append
                     (if (stringp vc-register-switches)
                         (list vc-register-switches)
                       vc-register-switches)