From e39bd8ac2205e7b0cd7fc527e99c4d5507b0cd4d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Thu, 26 Dec 2002 14:38:20 +0000 Subject: [PATCH] (vc-rcs-checkin): By default, always specify the current branch of the working file for check-in. --- lisp/vc-rcs.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -;; $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") -- 2.39.2