From: André Spiegel <spiegel@gnu.org>
Date: Thu, 26 Dec 2002 14:38:20 +0000 (+0000)
Subject: (vc-rcs-checkin): By default, always specify the
X-Git-Tag: ttn-vms-21-2-B4~11902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e39bd8ac2205e7b0cd7fc527e99c4d5507b0cd4d;p=emacs.git

(vc-rcs-checkin): By default, always specify the
current branch of the working file for check-in.
---

diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index ca22bac1642..3bcb3c8038a 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-rcs.el,v 1.31 2002/11/13 12:38:20 spiegel Exp $
+;; $Id: vc-rcs.el,v 1.32 2002/12/26 14:06:33 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -325,6 +325,8 @@ whether to remove it."
 			 default-branch)
 	   (setq rev default-branch)
 	   (setq switches (cons "-f" switches)))
+      (if (and (not rev) old-version)
+          (setq rev (vc-branch-part old-version)))
       (apply 'vc-do-command nil 0 "ci" (vc-name file)
 	     ;; if available, use the secure check-in option
 	     (and (vc-rcs-release-p "5.6.4") "-j")