From 4b81132cafbf7497edbb0b96535e5f1de0a25bf1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Tue, 14 Apr 1998 12:38:25 +0000 Subject: [PATCH] (vc-next-action-on-file): Don't check out after registering. This is two steps instead of one, and the second does not make sense under CVS. (vc-next-action): Changed doc string to reflect the above. --- lisp/vc.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index cc9c2608517..dc3233cfa33 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel -;; $Id: vc.el,v 1.219 1998/04/05 18:54:35 spiegel Exp spiegel $ +;; $Id: vc.el,v 1.220 1998/04/09 13:45:44 spiegel Exp spiegel $ ;; This file is part of GNU Emacs. @@ -733,18 +733,13 @@ before the filename." (defun vc-next-action-on-file (file verbose &optional comment) ;;; If comment is specified, it will be used as an admin or checkin comment. - (let ((vc-file (vc-name file)) - (vc-type (vc-backend file)) + (let ((vc-type (vc-backend file)) owner version buffer) (cond - ;; if there is no master file corresponding, create one - ((not vc-file) - (vc-register verbose comment) - (if vc-initial-comment - (setq vc-log-after-operation-hook - 'vc-checkout-writable-buffer-hook) - (vc-checkout-writable-buffer file))) + ;; If the file is not under version control, register it + ((not vc-type) + (vc-register verbose comment)) ;; CVS: changes to the master file need to be ;; merged back into the working file @@ -915,7 +910,7 @@ lock steals will raise an error. For RCS and SCCS files: If the file is not already registered, this registers it for version -control and then retrieves a writable, locked copy for editing. +control. If the file is registered and not locked by anyone, this checks out a writable and locked file ready for editing. If the file is checked out and locked by the calling user, this -- 2.39.2