58 |
:version "21.1" |
:version "21.1" |
59 |
:group 'vc) |
:group 'vc) |
60 |
|
|
|
(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) |
|
|
|
|
61 |
(defcustom vc-rcs-diff-switches nil |
(defcustom vc-rcs-diff-switches nil |
62 |
"*A string or list of strings specifying extra switches for rcsdiff under VC." |
"*A string or list of strings specifying extra switches for rcsdiff under VC." |
63 |
:type '(choice (const :tag "None" nil) |
:type '(choice (const :tag "None" nil) |
232 |
Automatically retrieve a read-only version of the file with keywords |
Automatically retrieve a read-only version of the file with keywords |
233 |
expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." |
expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." |
234 |
(let ((subdir (expand-file-name "RCS" (file-name-directory file))) |
(let ((subdir (expand-file-name "RCS" (file-name-directory file))) |
235 |
(switches (list |
(switches (append |
236 |
(if (stringp vc-register-switches) |
(if (stringp vc-register-switches) |
237 |
(list vc-register-switches) |
(list vc-register-switches) |
238 |
vc-register-switches) |
vc-register-switches) |