# HG changeset patch # User Andr Spiegel # Date 1016471858 0 # Node ID 68d54bdba97cbb2cda4bfd1c7560390c3ad4884f # Parent afbab80cfab0ffc9178f5a1594dde6b36ae035f6 (vc-rcs-register): Fix handling of vc-[rcs-]register-switches. (vc-rcs-checkin-switches, vc-rcs-checkout-switches): Removed, since they weren't used yet. diff -r afbab80cfab0 -r 68d54bdba97c lisp/vc-rcs.el --- a/lisp/vc-rcs.el Mon Mar 18 14:56:35 2002 +0000 +++ b/lisp/vc-rcs.el Mon Mar 18 17:17:38 2002 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-rcs.el,v 1.22 2002/01/05 17:21:06 spiegel Exp $ +;; $Id: vc-rcs.el,v 1.23 2002/02/25 22:04:29 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -58,28 +58,6 @@ :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) @@ -254,7 +232,7 @@ 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 + (switches (append (if (stringp vc-register-switches) (list vc-register-switches) vc-register-switches)