diff options
| -rw-r--r-- | lisp/vc/vc-rcs.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el index 1e1990890a2..71ffa55a6e9 100644 --- a/lisp/vc/vc-rcs.el +++ b/lisp/vc/vc-rcs.el | |||
| @@ -243,7 +243,9 @@ to the RCS command." | |||
| 243 | ;; if available, use the secure registering option | 243 | ;; if available, use the secure registering option |
| 244 | (and (vc-rcs-release-p "5.6.4") "-i") | 244 | (and (vc-rcs-release-p "5.6.4") "-i") |
| 245 | "-u" | 245 | "-u" |
| 246 | (and comment (concat "-t-" comment)) | 246 | ;; Some old MS-Windows ports of RCS crash when "ci -i" is |
| 247 | ;; invoked without -t; indulge them. | ||
| 248 | (concat "-t-" (or comment "")) | ||
| 247 | (vc-switches 'RCS 'register)) | 249 | (vc-switches 'RCS 'register)) |
| 248 | ;; parse output to find master file name and workfile version | 250 | ;; parse output to find master file name and workfile version |
| 249 | (with-current-buffer "*vc*" | 251 | (with-current-buffer "*vc*" |