1992-07-31 22:24:03 +00:00
|
|
|
|
;;; vc.el --- drive a version-control system from within Emacs
|
|
|
|
|
|
|
1998-04-04 05:22:37 +00:00
|
|
|
|
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1997-01-03 13:51:36 +00:00
|
|
|
|
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
|
|
|
|
|
|
;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1999-01-02 21:54:32 +00:00
|
|
|
|
;; $Id: vc.el,v 1.241 1998/12/08 16:04:52 rost Exp rms $
|
1998-02-27 18:44:14 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
|
|
|
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
|
;; any later version.
|
|
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
1996-01-14 07:34:30 +00:00
|
|
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
|
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
|
;; Boston, MA 02111-1307, USA.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
1993-03-28 06:40:46 +00:00
|
|
|
|
;; This mode is fully documented in the Emacs user's manual.
|
|
|
|
|
|
;;
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; This was designed and implemented by Eric Raymond <esr@snark.thyrsus.com>.
|
|
|
|
|
|
;; Paul Eggert <eggert@twinsun.com>, Sebastian Kremer <sk@thp.uni-koeln.de>,
|
|
|
|
|
|
;; and Richard Stallman contributed valuable criticism, support, and testing.
|
1995-01-24 06:33:41 +00:00
|
|
|
|
;; CVS support was added by Per Cederqvist <ceder@lysator.liu.se>
|
1998-04-04 05:22:37 +00:00
|
|
|
|
;; in Jan-Feb 1994. Further enhancements came from ttn@netcom.com and
|
1997-01-03 13:51:36 +00:00
|
|
|
|
;; Andre Spiegel <spiegel@inf.fu-berlin.de>.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;
|
1995-01-24 06:33:41 +00:00
|
|
|
|
;; Supported version-control systems presently include SCCS, RCS, and CVS.
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Some features will not work with old RCS versions. Where
|
|
|
|
|
|
;; appropriate, VC finds out which version you have, and allows or
|
|
|
|
|
|
;; disallows those features (stealing locks, for example, works only
|
|
|
|
|
|
;; from 5.6.2 onwards).
|
1995-01-24 06:33:41 +00:00
|
|
|
|
;; Even initial checkins will fail if your RCS version is so old that ci
|
|
|
|
|
|
;; doesn't understand -t-; this has been known to happen to people running
|
|
|
|
|
|
;; NExTSTEP 3.0.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;
|
1995-08-22 17:53:14 +00:00
|
|
|
|
;; You can support the RCS -x option by adding pairs to the
|
|
|
|
|
|
;; vc-master-templates list.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; Proper function of the SCCS diff commands requires the shellscript vcdiff
|
|
|
|
|
|
;; to be installed somewhere on Emacs's path for executables.
|
|
|
|
|
|
;;
|
1993-03-28 06:40:46 +00:00
|
|
|
|
;; If your site uses the ChangeLog convention supported by Emacs, the
|
1993-04-05 23:52:16 +00:00
|
|
|
|
;; function vc-comment-to-change-log should prove a useful checkin hook.
|
1993-03-28 06:40:46 +00:00
|
|
|
|
;;
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; This code depends on call-process passing back the subprocess exit
|
1993-04-08 16:35:52 +00:00
|
|
|
|
;; status. Thus, you need Emacs 18.58 or later to run it. For the
|
1993-05-08 16:14:11 +00:00
|
|
|
|
;; vc-directory command to work properly as documented, you need 19.
|
1993-05-11 21:15:54 +00:00
|
|
|
|
;; You also need Emacs 19's ring.el.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; The vc code maintains some internal state in order to reduce expensive
|
|
|
|
|
|
;; version-control operations to a minimum. Some names are only computed
|
1993-05-12 21:30:35 +00:00
|
|
|
|
;; once. If you perform version control operations with RCS/SCCS/CVS while
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; vc's back is turned, or move/rename master files while vc is running,
|
|
|
|
|
|
;; vc may get seriously confused. Don't do these things!
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; Developer's notes on some concurrency issues are included at the end of
|
|
|
|
|
|
;; the file.
|
|
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
|
|
(require 'vc-hooks)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(require 'ring)
|
1994-07-19 22:30:06 +00:00
|
|
|
|
(eval-when-compile (require 'dired)) ; for dired-map-over-marks macro
|
1993-04-25 22:26:40 +00:00
|
|
|
|
|
|
|
|
|
|
(if (not (assoc 'vc-parent-buffer minor-mode-alist))
|
|
|
|
|
|
(setq minor-mode-alist
|
|
|
|
|
|
(cons '(vc-parent-buffer vc-parent-buffer-name)
|
|
|
|
|
|
minor-mode-alist)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1995-06-16 18:04:47 +00:00
|
|
|
|
;; To implement support for a new version-control system, add another
|
|
|
|
|
|
;; branch to the vc-backend-dispatch macro and fill it in in each
|
|
|
|
|
|
;; call. The variable vc-master-templates in vc-hooks.el will also
|
|
|
|
|
|
;; have to change.
|
|
|
|
|
|
|
|
|
|
|
|
(defmacro vc-backend-dispatch (f s r c)
|
|
|
|
|
|
"Execute FORM1, FORM2 or FORM3 for SCCS, RCS or CVS respectively.
|
|
|
|
|
|
If FORM3 is `RCS', use FORM2 for CVS as well as RCS.
|
|
|
|
|
|
\(CVS shares some code with RCS)."
|
|
|
|
|
|
(list 'let (list (list 'type (list 'vc-backend f)))
|
|
|
|
|
|
(list 'cond
|
|
|
|
|
|
(list (list 'eq 'type (quote 'SCCS)) s) ;; SCCS
|
|
|
|
|
|
(list (list 'eq 'type (quote 'RCS)) r) ;; RCS
|
|
|
|
|
|
(list (list 'eq 'type (quote 'CVS)) ;; CVS
|
|
|
|
|
|
(if (eq c 'RCS) r c))
|
|
|
|
|
|
)))
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; General customization
|
|
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defgroup vc nil
|
|
|
|
|
|
"Version-control system in Emacs."
|
|
|
|
|
|
:group 'tools)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-suppress-confirm nil
|
|
|
|
|
|
"*If non-nil, treat user as expert; suppress yes-no prompts on some things."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-initial-comment nil
|
|
|
|
|
|
"*If non-nil, prompt for initial comment when a file is registered."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
1998-02-27 18:44:14 +00:00
|
|
|
|
(defcustom vc-default-init-version "1.1"
|
|
|
|
|
|
"*A string used as the default version number when a new file is registered.
|
|
|
|
|
|
This can be overriden by giving a prefix argument to \\[vc-register]."
|
|
|
|
|
|
:type 'string
|
1998-04-20 02:34:53 +00:00
|
|
|
|
:group 'vc
|
|
|
|
|
|
:version "20.3")
|
1998-02-27 18:44:14 +00:00
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-command-messages nil
|
|
|
|
|
|
"*If non-nil, display run messages from back-end commands."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-checkin-switches nil
|
|
|
|
|
|
"*A string or list of strings specifying extra switches for checkin.
|
|
|
|
|
|
These are passed to the checkin program by \\[vc-checkin]."
|
|
|
|
|
|
:type '(choice (const :tag "None" nil)
|
|
|
|
|
|
(string :tag "Argument String")
|
|
|
|
|
|
(repeat :tag "Argument List"
|
|
|
|
|
|
:value ("")
|
|
|
|
|
|
string))
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-checkout-switches nil
|
|
|
|
|
|
"*A string or list of strings specifying extra switches for checkout.
|
|
|
|
|
|
These are passed to the checkout program by \\[vc-checkout]."
|
|
|
|
|
|
:type '(choice (const :tag "None" nil)
|
|
|
|
|
|
(string :tag "Argument String")
|
|
|
|
|
|
(repeat :tag "Argument List"
|
|
|
|
|
|
:value ("")
|
|
|
|
|
|
string))
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-register-switches nil
|
|
|
|
|
|
"*A string or list of strings; extra switches for registering a file.
|
|
|
|
|
|
These are passed to the checkin program by \\[vc-register]."
|
|
|
|
|
|
:type '(choice (const :tag "None" nil)
|
|
|
|
|
|
(string :tag "Argument String")
|
|
|
|
|
|
(repeat :tag "Argument List"
|
|
|
|
|
|
:value ("")
|
|
|
|
|
|
string))
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(defcustom vc-dired-recurse t
|
|
|
|
|
|
"*If non-nil, show directory trees recursively in VC Dired."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'vc
|
|
|
|
|
|
:version "20.3")
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-dired-terse-display t
|
|
|
|
|
|
"*If non-nil, show only locked files in VC Dired."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'vc
|
|
|
|
|
|
:version "20.3")
|
|
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-directory-exclusion-list '("SCCS" "RCS" "CVS")
|
|
|
|
|
|
"*List of directory names to be ignored while recursively walking file trees."
|
|
|
|
|
|
:type '(repeat string)
|
|
|
|
|
|
:group 'vc)
|
1992-10-05 05:17:21 +00:00
|
|
|
|
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defconst vc-maximum-comment-ring-size 32
|
|
|
|
|
|
"Maximum number of saved comments in the comment ring.")
|
|
|
|
|
|
|
1993-05-09 14:27:02 +00:00
|
|
|
|
;;; This is duplicated in diff.el.
|
|
|
|
|
|
(defvar diff-switches "-c"
|
|
|
|
|
|
"*A string or list of strings specifying switches to be be passed to diff.")
|
|
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(defcustom vc-annotate-color-map
|
|
|
|
|
|
'(( 26.3672 . "#FF0000")
|
|
|
|
|
|
( 52.7344 . "#FF3800")
|
|
|
|
|
|
( 79.1016 . "#FF7000")
|
|
|
|
|
|
(105.4688 . "#FFA800")
|
|
|
|
|
|
(131.8359 . "#FFE000")
|
|
|
|
|
|
(158.2031 . "#E7FF00")
|
|
|
|
|
|
(184.5703 . "#AFFF00")
|
|
|
|
|
|
(210.9375 . "#77FF00")
|
|
|
|
|
|
(237.3047 . "#3FFF00")
|
|
|
|
|
|
(263.6719 . "#07FF00")
|
|
|
|
|
|
(290.0391 . "#00FF31")
|
|
|
|
|
|
(316.4063 . "#00FF69")
|
|
|
|
|
|
(342.7734 . "#00FFA1")
|
|
|
|
|
|
(369.1406 . "#00FFD9")
|
|
|
|
|
|
(395.5078 . "#00EEFF")
|
|
|
|
|
|
(421.8750 . "#00B6FF")
|
|
|
|
|
|
(448.2422 . "#007EFF"))
|
|
|
|
|
|
"*Association list of age versus color, for \\[vc-annotate].
|
|
|
|
|
|
Ages are given in units of 2**-16 seconds.
|
|
|
|
|
|
Default is eighteen steps using a twenty day increment."
|
|
|
|
|
|
:type 'sexp
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-annotate-very-old-color "#0046FF"
|
|
|
|
|
|
"*Color for lines older than CAR of last cons in `vc-annotate-color-map'."
|
|
|
|
|
|
:type 'string
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-annotate-background "black"
|
|
|
|
|
|
"*Background color for \\[vc-annotate].
|
|
|
|
|
|
Default color is used if nil."
|
|
|
|
|
|
:type 'string
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-annotate-menu-elements '(2 0.5 0.1 0.01)
|
|
|
|
|
|
"*Menu elements for the mode-specific menu of VC-Annotate mode.
|
|
|
|
|
|
List of factors, used to expand/compress the time scale. See `vc-annotate'."
|
|
|
|
|
|
:type 'sexp
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
1997-04-01 21:47:17 +00:00
|
|
|
|
;;;###autoload
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-checkin-hook nil
|
1998-02-24 12:54:05 +00:00
|
|
|
|
"*Normal hook (list of functions) run after a checkin is done.
|
1997-05-05 20:56:20 +00:00
|
|
|
|
See `run-hooks'."
|
|
|
|
|
|
:type 'hook
|
1998-02-24 12:54:05 +00:00
|
|
|
|
:options '(vc-comment-to-change-log)
|
1997-05-05 20:56:20 +00:00
|
|
|
|
:group 'vc)
|
1997-04-01 21:47:17 +00:00
|
|
|
|
|
1992-09-27 01:51:04 +00:00
|
|
|
|
;;;###autoload
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-before-checkin-hook nil
|
|
|
|
|
|
"*Normal hook (list of functions) run before a file gets checked in.
|
|
|
|
|
|
See `run-hooks'."
|
|
|
|
|
|
:type 'hook
|
|
|
|
|
|
:group 'vc)
|
1992-09-27 01:51:04 +00:00
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defcustom vc-annotate-mode-hook nil
|
|
|
|
|
|
"*Hooks to run when VC-Annotate mode is turned on."
|
|
|
|
|
|
:type 'hook
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Header-insertion hair
|
|
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-header-alist
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
'((SCCS "\%W\%") (RCS "\$Id\$") (CVS "\$Id\$"))
|
1996-01-04 16:00:05 +00:00
|
|
|
|
"*Header keywords to be inserted by `vc-insert-headers'.
|
|
|
|
|
|
Must be a list of two-element lists, the first element of each must
|
|
|
|
|
|
be `RCS', `CVS', or `SCCS'. The second element is the string to
|
1997-05-05 20:56:20 +00:00
|
|
|
|
be inserted for this particular backend."
|
|
|
|
|
|
:type '(repeat (list :format "%v"
|
|
|
|
|
|
(choice :tag "System"
|
|
|
|
|
|
(const SCCS)
|
|
|
|
|
|
(const RCS)
|
|
|
|
|
|
(const CVS))
|
|
|
|
|
|
(string :tag "Header")))
|
|
|
|
|
|
:group 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom vc-static-header-alist
|
1992-07-31 22:24:03 +00:00
|
|
|
|
'(("\\.c$" .
|
|
|
|
|
|
"\n#ifndef lint\nstatic char vcid[] = \"\%s\";\n#endif /* lint */\n"))
|
|
|
|
|
|
"*Associate static header string templates with file types. A \%s in the
|
|
|
|
|
|
template is replaced with the first string associated with the file's
|
1997-05-05 20:56:20 +00:00
|
|
|
|
version-control type in `vc-header-alist'."
|
|
|
|
|
|
:type '(repeat (cons :format "%v"
|
|
|
|
|
|
(regexp :tag "File Type")
|
|
|
|
|
|
(string :tag "Header String")))
|
|
|
|
|
|
:group 'vc)
|
1993-03-17 13:58:48 +00:00
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-comment-alist
|
1992-07-31 22:24:03 +00:00
|
|
|
|
'((nroff-mode ".\\\"" ""))
|
|
|
|
|
|
"*Special comment delimiters to be used in generating vc headers only.
|
|
|
|
|
|
Add an entry in this list if you need to override the normal comment-start
|
|
|
|
|
|
and comment-end variables. This will only be necessary if the mode language
|
1997-05-05 20:56:20 +00:00
|
|
|
|
is sensitive to blank lines."
|
|
|
|
|
|
:type '(repeat (list :format "%v"
|
|
|
|
|
|
(symbol :tag "Mode")
|
|
|
|
|
|
(string :tag "Comment Start")
|
|
|
|
|
|
(string :tag "Comment End")))
|
|
|
|
|
|
:group 'vc)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-11-27 11:39:02 +00:00
|
|
|
|
;; Default is to be extra careful for super-user.
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-checkout-carefully (= (user-uid) 0)
|
1993-11-27 11:39:02 +00:00
|
|
|
|
"*Non-nil means be extra-careful in checkout.
|
|
|
|
|
|
Verify that the file really is not locked
|
1997-05-05 20:56:20 +00:00
|
|
|
|
and that its contents match what the master file says."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'vc)
|
1993-11-27 11:39:02 +00:00
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-rcs-release nil
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
"*The release number of your RCS installation, as a string.
|
1997-05-05 20:56:20 +00:00
|
|
|
|
If nil, VC itself computes this value when it is first needed."
|
|
|
|
|
|
:type '(choice (const :tag "Auto" nil)
|
1998-12-08 16:04:52 +00:00
|
|
|
|
string
|
|
|
|
|
|
(const :tag "Unknown" unknown))
|
1997-05-05 20:56:20 +00:00
|
|
|
|
:group 'vc)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-sccs-release nil
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
"*The release number of your SCCS installation, as a string.
|
1997-05-05 20:56:20 +00:00
|
|
|
|
If nil, VC itself computes this value when it is first needed."
|
|
|
|
|
|
:type '(choice (const :tag "Auto" nil)
|
1998-12-08 16:04:52 +00:00
|
|
|
|
string
|
|
|
|
|
|
(const :tag "Unknown" unknown))
|
1997-05-05 20:56:20 +00:00
|
|
|
|
:group 'vc)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
|
1997-05-05 20:56:20 +00:00
|
|
|
|
(defcustom vc-cvs-release nil
|
1996-01-04 16:00:05 +00:00
|
|
|
|
"*The release number of your CVS installation, as a string.
|
1997-05-05 20:56:20 +00:00
|
|
|
|
If nil, VC itself computes this value when it is first needed."
|
|
|
|
|
|
:type '(choice (const :tag "Auto" nil)
|
1998-12-08 16:04:52 +00:00
|
|
|
|
string
|
|
|
|
|
|
(const :tag "Unknown" unknown))
|
1997-05-05 20:56:20 +00:00
|
|
|
|
:group 'vc)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Variables the user doesn't need to know about.
|
|
|
|
|
|
(defvar vc-log-entry-mode nil)
|
|
|
|
|
|
(defvar vc-log-operation nil)
|
1992-09-27 01:51:04 +00:00
|
|
|
|
(defvar vc-log-after-operation-hook nil)
|
1993-05-12 21:30:35 +00:00
|
|
|
|
(defvar vc-checkout-writable-buffer-hook 'vc-checkout-writable-buffer)
|
1994-07-26 20:37:32 +00:00
|
|
|
|
;; In a log entry buffer, this is a local variable
|
|
|
|
|
|
;; that points to the buffer for which it was made
|
|
|
|
|
|
;; (either a file, or a VC dired buffer).
|
1993-03-28 06:40:46 +00:00
|
|
|
|
(defvar vc-parent-buffer nil)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defvar vc-parent-buffer-name nil)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-10-28 09:33:04 +00:00
|
|
|
|
(defvar vc-log-file)
|
|
|
|
|
|
(defvar vc-log-version)
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defconst vc-name-assoc-file "VC-names")
|
|
|
|
|
|
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defvar vc-dired-mode nil)
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(make-variable-buffer-local 'vc-dired-mode)
|
|
|
|
|
|
|
1996-04-16 22:33:07 +00:00
|
|
|
|
(defvar vc-comment-ring (make-ring vc-maximum-comment-ring-size))
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defvar vc-comment-ring-index nil)
|
|
|
|
|
|
(defvar vc-last-comment-match nil)
|
|
|
|
|
|
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; Find and compare backend releases
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-release (backend)
|
|
|
|
|
|
;; Returns which backend release is installed on this system.
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((eq backend 'RCS)
|
|
|
|
|
|
(or vc-rcs-release
|
1997-02-10 20:43:37 +00:00
|
|
|
|
(and (zerop (vc-do-command nil nil "rcs" nil nil "-V"))
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (get-buffer "*vc*"))
|
|
|
|
|
|
(setq vc-rcs-release
|
|
|
|
|
|
(car (vc-parse-buffer
|
|
|
|
|
|
'(("^RCS version \\([0-9.]+ *.*\\)" 1)))))))
|
|
|
|
|
|
(setq vc-rcs-release 'unknown)))
|
|
|
|
|
|
((eq backend 'CVS)
|
|
|
|
|
|
(or vc-cvs-release
|
|
|
|
|
|
(and (zerop (vc-do-command nil 1 "cvs" nil nil "-v"))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (get-buffer "*vc*"))
|
|
|
|
|
|
(setq vc-cvs-release
|
|
|
|
|
|
(car (vc-parse-buffer
|
|
|
|
|
|
'(("^Concurrent Versions System (CVS) \\([0-9.]+\\)"
|
|
|
|
|
|
1)))))))
|
|
|
|
|
|
(setq vc-cvs-release 'unknown)))
|
|
|
|
|
|
((eq backend 'SCCS)
|
|
|
|
|
|
vc-sccs-release)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-release-greater-or-equal (r1 r2)
|
|
|
|
|
|
;; Compare release numbers, represented as strings.
|
|
|
|
|
|
;; Release components are assumed cardinal numbers, not decimal
|
|
|
|
|
|
;; fractions (5.10 is a higher release than 5.9). Omitted fields
|
|
|
|
|
|
;; are considered lower (5.6.7 is earlier than 5.6.7.1).
|
|
|
|
|
|
;; Comparison runs till the end of the string is found, or a
|
|
|
|
|
|
;; non-numeric component shows up (5.6.7 is earlier than "5.6.7 beta",
|
|
|
|
|
|
;; which is probably not what you want in some cases).
|
|
|
|
|
|
;; This code is suitable for existing RCS release numbers.
|
|
|
|
|
|
;; CVS releases are handled reasonably, too (1.3 < 1.4* < 1.5).
|
|
|
|
|
|
(let (v1 v2 i1 i2)
|
|
|
|
|
|
(catch 'done
|
|
|
|
|
|
(or (and (string-match "^\\.?\\([0-9]+\\)" r1)
|
|
|
|
|
|
(setq i1 (match-end 0))
|
|
|
|
|
|
(setq v1 (string-to-number (match-string 1 r1)))
|
|
|
|
|
|
(or (and (string-match "^\\.?\\([0-9]+\\)" r2)
|
|
|
|
|
|
(setq i2 (match-end 0))
|
|
|
|
|
|
(setq v2 (string-to-number (match-string 1 r2)))
|
|
|
|
|
|
(if (> v1 v2) (throw 'done t)
|
|
|
|
|
|
(if (< v1 v2) (throw 'done nil)
|
|
|
|
|
|
(throw 'done
|
|
|
|
|
|
(vc-release-greater-or-equal
|
|
|
|
|
|
(substring r1 i1)
|
|
|
|
|
|
(substring r2 i2)))))))
|
|
|
|
|
|
(throw 'done t)))
|
|
|
|
|
|
(or (and (string-match "^\\.?\\([0-9]+\\)" r2)
|
|
|
|
|
|
(throw 'done nil))
|
|
|
|
|
|
(throw 'done t)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-release-p (backend release)
|
|
|
|
|
|
;; Return t if we have RELEASE of BACKEND or better
|
|
|
|
|
|
(let (i r (ri 0) (ii 0) is rs (installation (vc-backend-release backend)))
|
|
|
|
|
|
(if (not (eq installation 'unknown))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((or (eq backend 'RCS) (eq backend 'CVS))
|
|
|
|
|
|
(vc-release-greater-or-equal installation release))))))
|
|
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
;;; functions that operate on RCS revision numbers
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-trunk-p (rev)
|
|
|
|
|
|
;; return t if REV is a revision on the trunk
|
|
|
|
|
|
(not (eq nil (string-match "\\`[0-9]+\\.[0-9]+\\'" rev))))
|
|
|
|
|
|
|
1998-04-05 18:45:06 +00:00
|
|
|
|
(defun vc-branch-p (rev)
|
|
|
|
|
|
;; return t if REV is a branch revision
|
|
|
|
|
|
(not (eq nil (string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" rev))))
|
|
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(defun vc-branch-part (rev)
|
|
|
|
|
|
;; return the branch part of a revision number REV
|
|
|
|
|
|
(substring rev 0 (string-match "\\.[0-9]+\\'" rev)))
|
|
|
|
|
|
|
1997-07-31 06:23:19 +00:00
|
|
|
|
(defun vc-minor-part (rev)
|
|
|
|
|
|
;; return the minor version number of a revision number REV
|
|
|
|
|
|
(string-match "[0-9]+\\'" rev)
|
|
|
|
|
|
(substring rev (match-beginning 0) (match-end 0)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-previous-version (rev)
|
|
|
|
|
|
;; guess the previous version number
|
|
|
|
|
|
(let ((branch (vc-branch-part rev))
|
|
|
|
|
|
(minor-num (string-to-number (vc-minor-part rev))))
|
|
|
|
|
|
(if (> minor-num 1)
|
|
|
|
|
|
;; version does probably not start a branch or release
|
|
|
|
|
|
(concat branch "." (number-to-string (1- minor-num)))
|
|
|
|
|
|
(if (vc-trunk-p rev)
|
|
|
|
|
|
;; we are at the beginning of the trunk --
|
|
|
|
|
|
;; don't know anything to return here
|
|
|
|
|
|
""
|
|
|
|
|
|
;; we are at the beginning of a branch --
|
|
|
|
|
|
;; return version of starting point
|
|
|
|
|
|
(vc-branch-part branch)))))
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; File property caching
|
|
|
|
|
|
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defun vc-clear-context ()
|
|
|
|
|
|
"Clear all cached file properties and the comment ring."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(fillarray vc-file-prop-obarray nil)
|
|
|
|
|
|
;; Note: there is potential for minor lossage here if there is an open
|
|
|
|
|
|
;; log buffer with a nonzero local value of vc-comment-ring-index.
|
1996-04-16 22:33:07 +00:00
|
|
|
|
(setq vc-comment-ring (make-ring vc-maximum-comment-ring-size)))
|
1993-04-25 22:26:40 +00:00
|
|
|
|
|
Adapt to the changes in vc-hooks.el, namely, the new
'none-value of vc-locking-user, and the consistent caching
of all properties. Especially, make the properties survive
check-ins and check-outs. Various minor bug fixes.
(vc-file-clear-masterprops): New function.
(vc-backend-checkin, vc-backend-revert): Set vc-locking-user
to 'none if the file is unlocked.
(vc-backend-checkin, vc-backend-revert, vc-backend-checkout):
Use vc-file-clear-masterprops, and adjust those properties
that are not cleared.
(vc-resynch-window): Temporarily remove vc-find-file-hook, so
that we don't lose the file properties during check-in/out.
(vc-resynch-window): Do not try to delete the current window if
`vc-keep-workfiles' is nil (doesn't make sense; killing the
buffer is enough.)
(vc-backend-checkin): Rewrote the code that adjusts the default
branch and removes any locks that might remain after check-in.
(vc-cancel-version): Abort with error message in the CVS case.
(The error used to be signalled in vc-backend-uncheck, which is
a little too late.)
(vc-minor-revision): Function removed.
1995-06-16 18:02:51 +00:00
|
|
|
|
(defun vc-file-clear-masterprops (file)
|
|
|
|
|
|
;; clear all properties of FILE that were retrieved
|
|
|
|
|
|
;; from the master file
|
|
|
|
|
|
(vc-file-setprop file 'vc-latest-version nil)
|
|
|
|
|
|
(vc-file-setprop file 'vc-your-latest-version nil)
|
|
|
|
|
|
(vc-backend-dispatch file
|
|
|
|
|
|
(progn ;; SCCS
|
|
|
|
|
|
(vc-file-setprop file 'vc-master-locks nil))
|
|
|
|
|
|
(progn ;; RCS
|
|
|
|
|
|
(vc-file-setprop file 'vc-default-branch nil)
|
|
|
|
|
|
(vc-file-setprop file 'vc-head-version nil)
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(vc-file-setprop file 'vc-master-workfile-version nil)
|
Adapt to the changes in vc-hooks.el, namely, the new
'none-value of vc-locking-user, and the consistent caching
of all properties. Especially, make the properties survive
check-ins and check-outs. Various minor bug fixes.
(vc-file-clear-masterprops): New function.
(vc-backend-checkin, vc-backend-revert): Set vc-locking-user
to 'none if the file is unlocked.
(vc-backend-checkin, vc-backend-revert, vc-backend-checkout):
Use vc-file-clear-masterprops, and adjust those properties
that are not cleared.
(vc-resynch-window): Temporarily remove vc-find-file-hook, so
that we don't lose the file properties during check-in/out.
(vc-resynch-window): Do not try to delete the current window if
`vc-keep-workfiles' is nil (doesn't make sense; killing the
buffer is enough.)
(vc-backend-checkin): Rewrote the code that adjusts the default
branch and removes any locks that might remain after check-in.
(vc-cancel-version): Abort with error message in the CVS case.
(The error used to be signalled in vc-backend-uncheck, which is
a little too late.)
(vc-minor-revision): Function removed.
1995-06-16 18:02:51 +00:00
|
|
|
|
(vc-file-setprop file 'vc-master-locks nil))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(vc-file-setprop file 'vc-cvs-status nil))))
|
(vc-next-action-on-file): Add missing let-binding.
(vc-default-backend, vc-keep-workfiles, vc-consult-headers):
(vc-mistrust-permissions, vc-path): Vars moved to vc-hooks.el.
(vc-match-substring, vc-lock-file, vc-parse-buffer, vc-master-info):
(vc-log-info, vc-consult-rcs-headers, vc-fetch-properties):
(vc-backend-subdirectory-name, vc-locking-user, vc-true-locking-user):
(vc-latest-version, vc-your-latest-version, vc-branch-version):
(vc-workfile-version): Functions moved to vc-hooks.el.
(vc-trunk-p, vc-minor-revision, vc-branch-part): Functions moved
here from vc-hooks.el.
1995-04-26 21:47:35 +00:00
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(defun vc-head-version (file)
|
|
|
|
|
|
;; Return the RCS head version of FILE
|
|
|
|
|
|
(cond ((vc-file-getprop file 'vc-head-version))
|
|
|
|
|
|
(t (vc-fetch-master-properties file)
|
|
|
|
|
|
(vc-file-getprop file 'vc-head-version))))
|
(vc-next-action-on-file): Add missing let-binding.
(vc-default-backend, vc-keep-workfiles, vc-consult-headers):
(vc-mistrust-permissions, vc-path): Vars moved to vc-hooks.el.
(vc-match-substring, vc-lock-file, vc-parse-buffer, vc-master-info):
(vc-log-info, vc-consult-rcs-headers, vc-fetch-properties):
(vc-backend-subdirectory-name, vc-locking-user, vc-true-locking-user):
(vc-latest-version, vc-your-latest-version, vc-branch-version):
(vc-workfile-version): Functions moved to vc-hooks.el.
(vc-trunk-p, vc-minor-revision, vc-branch-part): Functions moved
here from vc-hooks.el.
1995-04-26 21:47:35 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Random helper functions
|
|
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(defun vc-latest-on-branch-p (file)
|
|
|
|
|
|
;; return t iff the current workfile version of FILE is
|
|
|
|
|
|
;; the latest on its branch.
|
|
|
|
|
|
(vc-backend-dispatch file
|
|
|
|
|
|
;; SCCS
|
|
|
|
|
|
(string= (vc-workfile-version file) (vc-latest-version file))
|
|
|
|
|
|
;; RCS
|
|
|
|
|
|
(let ((workfile-version (vc-workfile-version file)) tip-version)
|
|
|
|
|
|
(if (vc-trunk-p workfile-version)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
;; Re-fetch the head version number. This is to make
|
|
|
|
|
|
;; sure that no-one has checked in a new version behind
|
|
|
|
|
|
;; our back.
|
|
|
|
|
|
(vc-fetch-master-properties file)
|
|
|
|
|
|
(string= (vc-file-getprop file 'vc-head-version)
|
|
|
|
|
|
workfile-version))
|
|
|
|
|
|
;; If we are not on the trunk, we need to examine the
|
1995-08-17 13:50:33 +00:00
|
|
|
|
;; whole current branch. (vc-master-workfile-version
|
|
|
|
|
|
;; is not what we need.)
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (get-buffer-create "*vc-info*"))
|
|
|
|
|
|
(vc-insert-file (vc-name file) "^desc")
|
|
|
|
|
|
(setq tip-version (car (vc-parse-buffer (list (list
|
|
|
|
|
|
(concat "^\\(" (regexp-quote (vc-branch-part workfile-version))
|
|
|
|
|
|
"\\.[0-9]+\\)\ndate[ \t]+\\([0-9.]+\\);") 1 2)))))
|
|
|
|
|
|
(if (get-buffer "*vc-info*")
|
|
|
|
|
|
(kill-buffer (get-buffer "*vc-info*")))
|
|
|
|
|
|
(string= tip-version workfile-version))))
|
|
|
|
|
|
;; CVS
|
1995-08-29 10:52:14 +00:00
|
|
|
|
t))
|
1995-08-17 12:40:03 +00:00
|
|
|
|
|
1998-11-04 15:09:38 +00:00
|
|
|
|
;;; Two macros for elisp programming
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defmacro with-vc-file (file comment &rest body)
|
|
|
|
|
|
"Execute BODY, checking out a writable copy of FILE first if necessary.
|
|
|
|
|
|
After BODY has been executed, check-in FILE with COMMENT (a string).
|
|
|
|
|
|
FILE is passed through `expand-file-name'; BODY executed within
|
|
|
|
|
|
`save-excursion'. If FILE is not under version control, or locked by
|
|
|
|
|
|
somebody else, signal error."
|
|
|
|
|
|
`(let ((file (expand-file-name ,file)))
|
|
|
|
|
|
(or (vc-registered file)
|
|
|
|
|
|
(error (format "File not under version control: `%s'" file)))
|
|
|
|
|
|
(let ((locking-user (vc-locking-user file)))
|
|
|
|
|
|
(cond ((and (not locking-user)
|
|
|
|
|
|
(eq (vc-checkout-model file) 'manual))
|
|
|
|
|
|
(vc-checkout file t))
|
|
|
|
|
|
((and (stringp locking-user)
|
|
|
|
|
|
(not (string= locking-user (vc-user-login-name))))
|
|
|
|
|
|
(error (format "`%s' is locking `%s'" locking-user file)))))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
,@body)
|
|
|
|
|
|
(vc-checkin file nil ,comment)))
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defmacro edit-vc-file (file comment &rest body)
|
|
|
|
|
|
"Edit FILE under version control, executing BODY. Checkin with COMMENT.
|
|
|
|
|
|
This macro uses `with-vc-file', passing args to it.
|
|
|
|
|
|
However, before executing BODY, find FILE, and after BODY, save buffer."
|
|
|
|
|
|
`(with-vc-file
|
|
|
|
|
|
,file ,comment
|
|
|
|
|
|
(find-file ,file)
|
|
|
|
|
|
,@body
|
|
|
|
|
|
(save-buffer)))
|
|
|
|
|
|
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(defun vc-ensure-vc-buffer ()
|
|
|
|
|
|
;; Make sure that the current buffer visits a version-controlled file.
|
|
|
|
|
|
(if vc-dired-mode
|
|
|
|
|
|
(set-buffer (find-file-noselect (dired-get-filename)))
|
|
|
|
|
|
(while vc-parent-buffer
|
|
|
|
|
|
(pop-to-buffer vc-parent-buffer))
|
|
|
|
|
|
(if (not (buffer-file-name))
|
|
|
|
|
|
(error "Buffer %s is not associated with a file" (buffer-name))
|
|
|
|
|
|
(if (not (vc-backend (buffer-file-name)))
|
|
|
|
|
|
(error "File %s is not under version control" (buffer-file-name))))))
|
1993-05-11 21:15:54 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defvar vc-binary-assoc nil)
|
1998-06-21 14:29:07 +00:00
|
|
|
|
(defvar vc-binary-suffixes
|
|
|
|
|
|
(if (memq system-type '(ms-dos windows-nt))
|
|
|
|
|
|
'(".exe" ".com" ".bat" ".cmd" ".btm" "")
|
|
|
|
|
|
'("")))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-find-binary (name)
|
|
|
|
|
|
"Look for a command anywhere on the subprocess-command search path."
|
|
|
|
|
|
(or (cdr (assoc name vc-binary-assoc))
|
1993-09-27 04:36:31 +00:00
|
|
|
|
(catch 'found
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(function
|
|
|
|
|
|
(lambda (s)
|
|
|
|
|
|
(if s
|
1998-06-21 14:29:07 +00:00
|
|
|
|
(let ((full (concat s "/" name))
|
|
|
|
|
|
(suffixes vc-binary-suffixes)
|
|
|
|
|
|
candidate)
|
|
|
|
|
|
(while suffixes
|
|
|
|
|
|
(setq candidate (concat full (car suffixes)))
|
|
|
|
|
|
(if (and (file-executable-p candidate)
|
|
|
|
|
|
(not (file-directory-p candidate)))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(setq vc-binary-assoc
|
|
|
|
|
|
(cons (cons name candidate) vc-binary-assoc))
|
|
|
|
|
|
(throw 'found candidate))
|
|
|
|
|
|
(setq suffixes (cdr suffixes))))))))
|
1993-09-27 04:36:31 +00:00
|
|
|
|
exec-path)
|
|
|
|
|
|
nil)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(defun vc-do-command (buffer okstatus command file last &rest flags)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
"Execute a version-control command, notifying user and checking for errors.
|
1998-03-20 15:40:24 +00:00
|
|
|
|
Output from COMMAND goes to BUFFER, or *vc* if BUFFER is nil. The
|
|
|
|
|
|
command is considered successful if its exit status does not exceed
|
|
|
|
|
|
OKSTATUS (if OKSTATUS is nil, that means to ignore errors). FILE is
|
|
|
|
|
|
the name of the working file (may also be nil, to execute commands
|
|
|
|
|
|
that don't expect a file name). If FILE is non-nil, the argument LAST
|
|
|
|
|
|
indicates what filename should actually be passed to the command: if
|
|
|
|
|
|
it is `MASTER', the name of FILE's master file is used, if it is
|
|
|
|
|
|
`WORKFILE', then FILE is passed through unchanged. If an optional
|
|
|
|
|
|
list of FLAGS is present, that is inserted into the command line
|
|
|
|
|
|
before the filename."
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(and file (setq file (expand-file-name file)))
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(if (not buffer) (setq buffer "*vc*"))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(if vc-command-messages
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(message "Running %s on %s..." command file))
|
1993-03-28 06:40:46 +00:00
|
|
|
|
(let ((obuf (current-buffer)) (camefrom (current-buffer))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(squeezed nil)
|
1995-01-24 06:33:41 +00:00
|
|
|
|
(olddir default-directory)
|
1998-04-04 05:22:37 +00:00
|
|
|
|
vc-file status)
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(set-buffer (get-buffer-create buffer))
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(set (make-local-variable 'vc-parent-buffer) camefrom)
|
|
|
|
|
|
(set (make-local-variable 'vc-parent-buffer-name)
|
|
|
|
|
|
(concat " from " (buffer-name camefrom)))
|
1995-01-24 06:33:41 +00:00
|
|
|
|
(setq default-directory olddir)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(erase-buffer)
|
1992-12-12 15:22:26 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(mapcar
|
|
|
|
|
|
(function (lambda (s) (and s (setq squeezed (append squeezed (list s))))))
|
|
|
|
|
|
flags)
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(if (and (eq last 'MASTER) file (setq vc-file (vc-name file)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(setq squeezed (append squeezed (list vc-file))))
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(if (and file (eq last 'WORKFILE))
|
1995-01-24 06:33:41 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(let* ((pwd (expand-file-name default-directory))
|
|
|
|
|
|
(preflen (length pwd)))
|
|
|
|
|
|
(if (string= (substring file 0 preflen) pwd)
|
|
|
|
|
|
(setq file (substring file preflen))))
|
|
|
|
|
|
(setq squeezed (append squeezed (list file)))))
|
1995-03-01 08:30:54 +00:00
|
|
|
|
(let ((exec-path (append vc-path exec-path))
|
1994-09-11 08:36:36 +00:00
|
|
|
|
;; Add vc-path to PATH for the execution of this command.
|
|
|
|
|
|
(process-environment
|
|
|
|
|
|
(cons (concat "PATH=" (getenv "PATH")
|
1995-06-19 13:36:45 +00:00
|
|
|
|
path-separator
|
|
|
|
|
|
(mapconcat 'identity vc-path path-separator))
|
1996-07-26 21:22:34 +00:00
|
|
|
|
process-environment))
|
1996-11-19 06:59:17 +00:00
|
|
|
|
(w32-quote-process-args t))
|
1993-03-28 06:40:46 +00:00
|
|
|
|
(setq status (apply 'call-process command nil t nil squeezed)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(goto-char (point-max))
|
1995-01-24 06:33:41 +00:00
|
|
|
|
(set-buffer-modified-p nil)
|
1993-09-21 07:51:53 +00:00
|
|
|
|
(forward-line -1)
|
1997-02-10 20:43:37 +00:00
|
|
|
|
(if (or (not (integerp status)) (and okstatus (< okstatus status)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(progn
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(pop-to-buffer buffer)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(goto-char (point-min))
|
1993-07-31 01:05:33 +00:00
|
|
|
|
(shrink-window-if-larger-than-buffer)
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(error "Running %s...FAILED (%s)" command
|
|
|
|
|
|
(if (integerp status)
|
|
|
|
|
|
(format "status %d" status)
|
|
|
|
|
|
status))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
(if vc-command-messages
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(message "Running %s...OK" command))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
(set-buffer obuf)
|
|
|
|
|
|
status)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
1992-11-20 17:23:45 +00:00
|
|
|
|
;;; Save a bit of the text around POSN in the current buffer, to help
|
|
|
|
|
|
;;; us find the corresponding position again later. This works even
|
|
|
|
|
|
;;; if all markers are destroyed or corrupted.
|
1995-08-17 12:40:03 +00:00
|
|
|
|
;;; A lot of this was shamelessly lifted from Sebastian Kremer's rcs.el mode.
|
1992-11-20 17:23:45 +00:00
|
|
|
|
(defun vc-position-context (posn)
|
|
|
|
|
|
(list posn
|
|
|
|
|
|
(buffer-size)
|
|
|
|
|
|
(buffer-substring posn
|
|
|
|
|
|
(min (point-max) (+ posn 100)))))
|
|
|
|
|
|
|
|
|
|
|
|
;;; Return the position of CONTEXT in the current buffer, or nil if we
|
|
|
|
|
|
;;; couldn't find it.
|
|
|
|
|
|
(defun vc-find-position-by-context (context)
|
|
|
|
|
|
(let ((context-string (nth 2 context)))
|
|
|
|
|
|
(if (equal "" context-string)
|
|
|
|
|
|
(point-max)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(let ((diff (- (nth 1 context) (buffer-size))))
|
|
|
|
|
|
(if (< diff 0) (setq diff (- diff)))
|
|
|
|
|
|
(goto-char (nth 0 context))
|
|
|
|
|
|
(if (or (search-forward context-string nil t)
|
|
|
|
|
|
;; Can't use search-backward since the match may continue
|
|
|
|
|
|
;; after point.
|
|
|
|
|
|
(progn (goto-char (- (point) diff (length context-string)))
|
|
|
|
|
|
;; goto-char doesn't signal an error at
|
|
|
|
|
|
;; beginning of buffer like backward-char would
|
|
|
|
|
|
(search-forward context-string nil t)))
|
|
|
|
|
|
;; to beginning of OSTRING
|
|
|
|
|
|
(- (point) (length context-string))))))))
|
|
|
|
|
|
|
1998-03-08 10:03:50 +00:00
|
|
|
|
(defun vc-context-matches-p (posn context)
|
|
|
|
|
|
;; Returns t if POSN matches CONTEXT, nil otherwise.
|
|
|
|
|
|
(let* ((context-string (nth 2 context))
|
|
|
|
|
|
(len (length context-string))
|
|
|
|
|
|
(end (+ posn len)))
|
|
|
|
|
|
(if (> end (1+ (buffer-size)))
|
|
|
|
|
|
nil
|
|
|
|
|
|
(string= context-string (buffer-substring posn end)))))
|
|
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(defun vc-buffer-context ()
|
|
|
|
|
|
;; Return a list '(point-context mark-context reparse); from which
|
|
|
|
|
|
;; vc-restore-buffer-context can later restore the context.
|
1992-11-20 17:23:45 +00:00
|
|
|
|
(let ((point-context (vc-position-context (point)))
|
1993-03-07 07:44:46 +00:00
|
|
|
|
;; Use mark-marker to avoid confusion in transient-mark-mode.
|
|
|
|
|
|
(mark-context (if (eq (marker-buffer (mark-marker)) (current-buffer))
|
|
|
|
|
|
(vc-position-context (mark-marker))))
|
|
|
|
|
|
;; Make the right thing happen in transient-mark-mode.
|
1993-04-19 21:13:47 +00:00
|
|
|
|
(mark-active nil)
|
|
|
|
|
|
;; We may want to reparse the compilation buffer after revert
|
|
|
|
|
|
(reparse (and (boundp 'compilation-error-list) ;compile loaded
|
|
|
|
|
|
(let ((curbuf (current-buffer)))
|
|
|
|
|
|
;; Construct a list; each elt is nil or a buffer
|
|
|
|
|
|
;; iff that buffer is a compilation output buffer
|
|
|
|
|
|
;; that contains markers into the current buffer.
|
|
|
|
|
|
(save-excursion
|
1993-05-11 21:15:54 +00:00
|
|
|
|
(mapcar (function
|
|
|
|
|
|
(lambda (buffer)
|
1993-04-19 21:13:47 +00:00
|
|
|
|
(set-buffer buffer)
|
|
|
|
|
|
(let ((errors (or
|
|
|
|
|
|
compilation-old-error-list
|
|
|
|
|
|
compilation-error-list))
|
|
|
|
|
|
(buffer-error-marked-p nil))
|
1993-05-14 03:57:45 +00:00
|
|
|
|
(while (and (consp errors)
|
1993-04-19 21:13:47 +00:00
|
|
|
|
(not buffer-error-marked-p))
|
1993-05-01 03:09:16 +00:00
|
|
|
|
(and (markerp (cdr (car errors)))
|
1993-04-28 22:48:52 +00:00
|
|
|
|
(eq buffer
|
|
|
|
|
|
(marker-buffer
|
1993-05-01 03:09:16 +00:00
|
|
|
|
(cdr (car errors))))
|
1993-04-28 22:48:52 +00:00
|
|
|
|
(setq buffer-error-marked-p t))
|
1993-04-19 21:13:47 +00:00
|
|
|
|
(setq errors (cdr errors)))
|
1993-05-11 21:15:54 +00:00
|
|
|
|
(if buffer-error-marked-p buffer))))
|
1993-04-19 21:13:47 +00:00
|
|
|
|
(buffer-list)))))))
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(list point-context mark-context reparse)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-restore-buffer-context (context)
|
|
|
|
|
|
;; Restore point/mark, and reparse any affected compilation buffers.
|
|
|
|
|
|
;; CONTEXT is that which vc-buffer-context returns.
|
|
|
|
|
|
(let ((point-context (nth 0 context))
|
|
|
|
|
|
(mark-context (nth 1 context))
|
|
|
|
|
|
(reparse (nth 2 context)))
|
1993-04-19 21:13:47 +00:00
|
|
|
|
;; Reparse affected compilation buffers.
|
|
|
|
|
|
(while reparse
|
|
|
|
|
|
(if (car reparse)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (car reparse))
|
|
|
|
|
|
(let ((compilation-last-buffer (current-buffer)) ;select buffer
|
|
|
|
|
|
;; Record the position in the compilation buffer of
|
|
|
|
|
|
;; the last error next-error went to.
|
|
|
|
|
|
(error-pos (marker-position
|
|
|
|
|
|
(car (car-safe compilation-error-list)))))
|
|
|
|
|
|
;; Reparse the error messages as far as they were parsed before.
|
|
|
|
|
|
(compile-reinitialize-errors '(4) compilation-parsing-end)
|
|
|
|
|
|
;; Move the pointer up to find the error we were at before
|
|
|
|
|
|
;; reparsing. Now next-error should properly go to the next one.
|
|
|
|
|
|
(while (and compilation-error-list
|
1993-04-19 21:29:48 +00:00
|
|
|
|
(/= error-pos (car (car compilation-error-list))))
|
1993-04-19 21:13:47 +00:00
|
|
|
|
(setq compilation-error-list (cdr compilation-error-list))))))
|
|
|
|
|
|
(setq reparse (cdr reparse)))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
1998-03-08 10:03:50 +00:00
|
|
|
|
;; if necessary, restore point and mark
|
|
|
|
|
|
(if (not (vc-context-matches-p (point) point-context))
|
|
|
|
|
|
(let ((new-point (vc-find-position-by-context point-context)))
|
|
|
|
|
|
(if new-point (goto-char new-point))))
|
1998-03-18 13:25:00 +00:00
|
|
|
|
(and mark-active
|
|
|
|
|
|
mark-context
|
|
|
|
|
|
(not (vc-context-matches-p (mark) mark-context))
|
|
|
|
|
|
(let ((new-mark (vc-find-position-by-context mark-context)))
|
|
|
|
|
|
(if new-mark (set-mark new-mark))))))
|
1992-11-20 17:23:45 +00:00
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(defun vc-revert-buffer1 (&optional arg no-confirm)
|
|
|
|
|
|
;; Revert buffer, try to keep point and mark where user expects them in spite
|
|
|
|
|
|
;; of changes because of expanded version-control key words.
|
|
|
|
|
|
;; This is quite important since otherwise typeahead won't work as expected.
|
|
|
|
|
|
(interactive "P")
|
|
|
|
|
|
(widen)
|
|
|
|
|
|
(let ((context (vc-buffer-context)))
|
1998-03-08 10:03:50 +00:00
|
|
|
|
;; Use save-excursion here, because it may be able to restore point
|
|
|
|
|
|
;; and mark properly even in cases where vc-restore-buffer-context
|
|
|
|
|
|
;; would fail. However, save-excursion might also get it wrong --
|
|
|
|
|
|
;; in this case, vc-restore-buffer-context gives it a second try.
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
;; t means don't call normal-mode;
|
|
|
|
|
|
;; that's to preserve various minor modes.
|
|
|
|
|
|
(revert-buffer arg no-confirm t))
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(vc-restore-buffer-context context)))
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-12-24 23:07:23 +00:00
|
|
|
|
(defun vc-buffer-sync (&optional not-urgent)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Make sure the current buffer and its working file are in sync
|
1993-12-24 23:07:23 +00:00
|
|
|
|
;; NOT-URGENT means it is ok to continue if the user says not to save.
|
1993-11-27 11:39:02 +00:00
|
|
|
|
(if (buffer-modified-p)
|
1993-12-24 23:07:23 +00:00
|
|
|
|
(if (or vc-suppress-confirm
|
|
|
|
|
|
(y-or-n-p (format "Buffer %s modified; save it? " (buffer-name))))
|
|
|
|
|
|
(save-buffer)
|
|
|
|
|
|
(if not-urgent
|
|
|
|
|
|
nil
|
|
|
|
|
|
(error "Aborted")))))
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-12-03 09:30:38 +00:00
|
|
|
|
(defun vc-workfile-unchanged-p (file &optional want-differences-if-changed)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Has the given workfile changed since last checkout?
|
|
|
|
|
|
(let ((checkout-time (vc-file-getprop file 'vc-checkout-time))
|
|
|
|
|
|
(lastmod (nth 5 (file-attributes file))))
|
1993-12-03 09:30:38 +00:00
|
|
|
|
(or (equal checkout-time lastmod)
|
|
|
|
|
|
(and (or (not checkout-time) want-differences-if-changed)
|
|
|
|
|
|
(let ((unchanged (zerop (vc-backend-diff file nil nil
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(not want-differences-if-changed)))))
|
1993-12-03 09:30:38 +00:00
|
|
|
|
;; 0 stands for an unknown time; it can't match any mod time.
|
|
|
|
|
|
(vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0))
|
|
|
|
|
|
unchanged)))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(defun vc-next-action-on-file (file verbose &optional comment)
|
|
|
|
|
|
;;; If comment is specified, it will be used as an admin or checkin comment.
|
1998-04-14 12:38:25 +00:00
|
|
|
|
(let ((vc-type (vc-backend file))
|
1995-08-29 10:52:14 +00:00
|
|
|
|
owner version buffer)
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
|
1998-04-14 12:38:25 +00:00
|
|
|
|
;; If the file is not under version control, register it
|
|
|
|
|
|
((not vc-type)
|
|
|
|
|
|
(vc-register verbose comment))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
1995-08-18 20:29:14 +00:00
|
|
|
|
;; CVS: changes to the master file need to be
|
|
|
|
|
|
;; merged back into the working file
|
|
|
|
|
|
((and (eq vc-type 'CVS)
|
|
|
|
|
|
(or (eq (vc-cvs-status file) 'needs-checkout)
|
|
|
|
|
|
(eq (vc-cvs-status file) 'needs-merge)))
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(if (or vc-dired-mode
|
|
|
|
|
|
(yes-or-no-p
|
|
|
|
|
|
(format "%s is not up-to-date. Merge in changes now? "
|
|
|
|
|
|
(buffer-name))))
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(progn
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(if vc-dired-mode
|
|
|
|
|
|
(and (setq buffer (get-file-buffer file))
|
|
|
|
|
|
(buffer-modified-p buffer)
|
|
|
|
|
|
(switch-to-buffer-other-window buffer)
|
|
|
|
|
|
(vc-buffer-sync t))
|
|
|
|
|
|
(setq buffer (current-buffer))
|
|
|
|
|
|
(vc-buffer-sync t))
|
|
|
|
|
|
(if (and buffer (buffer-modified-p buffer)
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(not (yes-or-no-p
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(format
|
|
|
|
|
|
"Buffer %s modified; merge file on disc anyhow? "
|
|
|
|
|
|
(buffer-name buffer)))))
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(error "Merge aborted"))
|
1998-03-31 17:19:32 +00:00
|
|
|
|
(let ((status (vc-backend-merge-news file)))
|
|
|
|
|
|
(and buffer
|
|
|
|
|
|
(vc-resynch-buffer file t
|
|
|
|
|
|
(not (buffer-modified-p buffer))))
|
|
|
|
|
|
(if (not (zerop status))
|
|
|
|
|
|
(if (y-or-n-p "Conflicts detected. Resolve them now? ")
|
|
|
|
|
|
(vc-resolve-conflicts)))))
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(error "%s needs update" (buffer-name))))
|
|
|
|
|
|
|
1997-07-18 16:06:57 +00:00
|
|
|
|
;; For CVS files with implicit checkout: if unmodified, don't do anything
|
|
|
|
|
|
((and (eq vc-type 'CVS)
|
|
|
|
|
|
(eq (vc-checkout-model file) 'implicit)
|
|
|
|
|
|
(not (vc-locking-user file))
|
|
|
|
|
|
(not verbose))
|
|
|
|
|
|
(message "%s is up to date" (buffer-name)))
|
|
|
|
|
|
|
1997-03-21 20:06:04 +00:00
|
|
|
|
;; If there is no lock on the file, assert one and get it.
|
1997-07-18 16:06:57 +00:00
|
|
|
|
((not (setq owner (vc-locking-user file)))
|
|
|
|
|
|
;; With implicit checkout, make sure not to lose unsaved changes.
|
|
|
|
|
|
(and (eq (vc-checkout-model file) 'implicit)
|
|
|
|
|
|
(buffer-modified-p buffer)
|
|
|
|
|
|
(vc-buffer-sync))
|
1993-11-27 11:39:02 +00:00
|
|
|
|
(if (and vc-checkout-carefully
|
1993-12-03 09:30:38 +00:00
|
|
|
|
(not (vc-workfile-unchanged-p file t)))
|
1993-11-27 11:39:02 +00:00
|
|
|
|
(if (save-window-excursion
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(pop-to-buffer "*vc-diff*")
|
1993-11-27 11:39:02 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(insert-string (format "Changes to %s since last lock:\n\n"
|
|
|
|
|
|
file))
|
|
|
|
|
|
(not (beep))
|
|
|
|
|
|
(yes-or-no-p
|
|
|
|
|
|
(concat "File has unlocked changes, "
|
|
|
|
|
|
"claim lock retaining changes? ")))
|
|
|
|
|
|
(progn (vc-backend-steal file)
|
|
|
|
|
|
(vc-mode-line file))
|
|
|
|
|
|
(if (not (yes-or-no-p "Revert to checked-in version, instead? "))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "Checkout aborted")
|
1993-11-27 11:39:02 +00:00
|
|
|
|
(vc-revert-buffer1 t t)
|
|
|
|
|
|
(vc-checkout-writable-buffer file))
|
|
|
|
|
|
)
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(if verbose
|
|
|
|
|
|
(if (not (eq vc-type 'SCCS))
|
1995-08-17 14:10:09 +00:00
|
|
|
|
(vc-checkout file nil
|
|
|
|
|
|
(read-string "Branch or version to move to: "))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "Sorry, this is not implemented for SCCS"))
|
1995-08-17 13:08:36 +00:00
|
|
|
|
(if (vc-latest-on-branch-p file)
|
|
|
|
|
|
(vc-checkout-writable-buffer file)
|
|
|
|
|
|
(if (yes-or-no-p
|
|
|
|
|
|
"This is not the latest version. Really lock it? ")
|
|
|
|
|
|
(vc-checkout-writable-buffer file)
|
|
|
|
|
|
(if (yes-or-no-p "Lock the latest version instead? ")
|
|
|
|
|
|
(vc-checkout-writable-buffer file
|
1995-10-04 15:13:04 +00:00
|
|
|
|
(if (vc-trunk-p (vc-workfile-version file))
|
|
|
|
|
|
"" ;; this means check out latest on trunk
|
|
|
|
|
|
(vc-branch-part (vc-workfile-version file)))))))
|
1995-08-17 13:08:36 +00:00
|
|
|
|
)))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
|
|
|
|
|
;; a checked-out version exists, but the user may not own the lock
|
1995-08-18 20:29:14 +00:00
|
|
|
|
((and (not (eq vc-type 'CVS))
|
1996-12-26 12:07:05 +00:00
|
|
|
|
(not (string-equal owner (vc-user-login-name))))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(if comment
|
1993-06-17 05:08:23 +00:00
|
|
|
|
(error "Sorry, you can't steal the lock on %s this way" file))
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(and (eq vc-type 'RCS)
|
|
|
|
|
|
(not (vc-backend-release-p 'RCS "5.6.2"))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "File is locked by %s" owner))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(vc-steal-lock
|
|
|
|
|
|
file
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(if verbose (read-string "Version to steal: ")
|
|
|
|
|
|
(vc-workfile-version file))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
owner))
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;; OK, user owns the lock on the file
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(t
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(if vc-dired-mode
|
|
|
|
|
|
(find-file-other-window file)
|
|
|
|
|
|
(find-file file))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
1998-03-20 15:40:24 +00:00
|
|
|
|
;; If the file on disk is newer, then the user just
|
|
|
|
|
|
;; said no to rereading it. So the user probably wishes to
|
|
|
|
|
|
;; overwrite the file with the buffer's contents, and check
|
|
|
|
|
|
;; that in.
|
|
|
|
|
|
(if (not (verify-visited-file-modtime (current-buffer)))
|
|
|
|
|
|
(if (yes-or-no-p "Replace file on disk with buffer contents? ")
|
|
|
|
|
|
(write-file (buffer-file-name))
|
|
|
|
|
|
(error "Aborted"))
|
1998-03-31 17:19:32 +00:00
|
|
|
|
;; if buffer is not saved, give user a chance to do it
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(vc-buffer-sync))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
|
|
|
|
|
;; Revert if file is unchanged and buffer is too.
|
|
|
|
|
|
;; If buffer is modified, that means the user just said no
|
|
|
|
|
|
;; to saving it; in that case, don't revert,
|
|
|
|
|
|
;; because the user might intend to save
|
|
|
|
|
|
;; after finishing the log entry.
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(if (and (vc-workfile-unchanged-p file)
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(not (buffer-modified-p)))
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;; DO NOT revert the file without asking the user!
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((yes-or-no-p "Revert to master version? ")
|
|
|
|
|
|
(vc-backend-revert file)
|
|
|
|
|
|
(vc-resynch-window file t t)))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
|
|
|
|
|
;; user may want to set nonstandard parameters
|
|
|
|
|
|
(if verbose
|
|
|
|
|
|
(setq version (read-string "New version level: ")))
|
|
|
|
|
|
|
|
|
|
|
|
;; OK, let's do the checkin
|
|
|
|
|
|
(vc-checkin file version comment)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
)))))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
1998-12-02 13:34:59 +00:00
|
|
|
|
(defvar vc-dired-window-configuration)
|
|
|
|
|
|
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(defun vc-next-action-dired (file rev comment)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;; Do a vc-next-action-on-file on all the marked files, possibly
|
|
|
|
|
|
;; passing on the log comment we've just entered.
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(let ((dired-buffer (current-buffer))
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(dired-dir default-directory))
|
1995-01-24 06:33:41 +00:00
|
|
|
|
(dired-map-over-marks
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(let ((file (dired-get-filename)))
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(message "Processing %s..." file)
|
1995-08-29 10:52:14 +00:00
|
|
|
|
;; Adjust the default directory so that checkouts
|
|
|
|
|
|
;; go to the right place.
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(let ((default-directory (file-name-directory file)))
|
|
|
|
|
|
(vc-next-action-on-file file nil comment)
|
|
|
|
|
|
(set-buffer dired-buffer))
|
|
|
|
|
|
;; Make sure that files don't vanish
|
|
|
|
|
|
;; after they are checked in.
|
|
|
|
|
|
(let ((vc-dired-terse-mode nil))
|
|
|
|
|
|
(dired-do-redisplay file))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(set-window-configuration vc-dired-window-configuration)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(message "Processing %s...done" file))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
nil t))
|
|
|
|
|
|
(dired-move-to-filename))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;; Here's the major entry point.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-next-action (verbose)
|
|
|
|
|
|
"Do the next logical checkin or checkout operation on the current file.
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
If you call this from within a VC dired buffer with no files marked,
|
|
|
|
|
|
it will operate on the file in the current line.
|
|
|
|
|
|
If you call this from within a VC dired buffer, and one or more
|
|
|
|
|
|
files are marked, it will accept a log message and then operate on
|
|
|
|
|
|
each one. The log message will be used as a comment for any register
|
|
|
|
|
|
or checkin operations, but ignored when doing checkouts. Attempted
|
|
|
|
|
|
lock steals will raise an error.
|
|
|
|
|
|
A prefix argument lets you specify the version number to use.
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
|
|
|
|
|
|
For RCS and SCCS files:
|
1992-07-31 22:24:03 +00:00
|
|
|
|
If the file is not already registered, this registers it for version
|
1998-04-14 12:38:25 +00:00
|
|
|
|
control.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
If the file is registered and not locked by anyone, this checks out
|
1993-05-12 21:30:35 +00:00
|
|
|
|
a writable and locked file ready for editing.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
If the file is checked out and locked by the calling user, this
|
|
|
|
|
|
first checks to see if the file has changed since checkout. If not,
|
|
|
|
|
|
it performs a revert.
|
1993-04-08 16:35:52 +00:00
|
|
|
|
If the file has been changed, this pops up a buffer for entry
|
|
|
|
|
|
of a log message; when the message has been entered, it checks in the
|
1992-07-31 22:24:03 +00:00
|
|
|
|
resulting changes along with the log message as change commentary. If
|
1993-05-12 21:30:35 +00:00
|
|
|
|
the variable `vc-keep-workfiles' is non-nil (which is its default), a
|
1992-07-31 22:24:03 +00:00
|
|
|
|
read-only copy of the changed file is left in place afterwards.
|
|
|
|
|
|
If the file is registered and locked by someone else, you are given
|
1993-04-08 16:35:52 +00:00
|
|
|
|
the option to steal the lock.
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
|
|
|
|
|
|
For CVS files:
|
|
|
|
|
|
If the file is not already registered, this registers it for version
|
|
|
|
|
|
control. This does a \"cvs add\", but no \"cvs commit\".
|
|
|
|
|
|
If the file is added but not committed, it is committed.
|
|
|
|
|
|
If your working file is changed, but the repository file is
|
|
|
|
|
|
unchanged, this pops up a buffer for entry of a log message; when the
|
|
|
|
|
|
message has been entered, it checks in the resulting changes along
|
|
|
|
|
|
with the logmessage as change commentary. A writable file is retained.
|
|
|
|
|
|
If the repository file is changed, you are asked if you want to
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
merge in the changes into your working copy."
|
1993-11-27 11:39:02 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(interactive "P")
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(catch 'nogo
|
|
|
|
|
|
(if vc-dired-mode
|
|
|
|
|
|
(let ((files (dired-get-marked-files)))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(set (make-local-variable 'vc-dired-window-configuration)
|
|
|
|
|
|
(current-window-configuration))
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(if (string= ""
|
|
|
|
|
|
(mapconcat
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(function (lambda (f)
|
|
|
|
|
|
(if (eq (vc-backend f) 'CVS)
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(if (or (eq (vc-cvs-status f) 'locally-modified)
|
|
|
|
|
|
(eq (vc-cvs-status f) 'locally-added))
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
"@" "")
|
|
|
|
|
|
(if (vc-locking-user f) "@" ""))))
|
|
|
|
|
|
files ""))
|
|
|
|
|
|
(vc-next-action-dired nil nil "dummy")
|
|
|
|
|
|
(vc-start-entry nil nil nil
|
|
|
|
|
|
"Enter a change comment for the marked files."
|
|
|
|
|
|
'vc-next-action-dired))
|
1995-08-29 10:52:14 +00:00
|
|
|
|
(throw 'nogo nil)))
|
1998-04-09 13:45:44 +00:00
|
|
|
|
(while vc-parent-buffer
|
|
|
|
|
|
(pop-to-buffer vc-parent-buffer))
|
|
|
|
|
|
(if buffer-file-name
|
|
|
|
|
|
(vc-next-action-on-file buffer-file-name verbose)
|
|
|
|
|
|
(error "Buffer %s is not associated with a file" (buffer-name)))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
;;; These functions help the vc-next-action entry point
|
|
|
|
|
|
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(defun vc-checkout-writable-buffer (&optional file rev)
|
1993-05-12 21:30:35 +00:00
|
|
|
|
"Retrieve a writable copy of the latest version of the current buffer's file."
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(vc-checkout (or file (buffer-file-name)) t rev)
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
)
|
|
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(defun vc-register (&optional override comment)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
"Register the current file into your version-control system."
|
|
|
|
|
|
(interactive "P")
|
1995-06-09 01:17:59 +00:00
|
|
|
|
(or buffer-file-name
|
|
|
|
|
|
(error "No visited file"))
|
1994-10-02 01:49:29 +00:00
|
|
|
|
(let ((master (vc-name buffer-file-name)))
|
|
|
|
|
|
(and master (file-exists-p master)
|
|
|
|
|
|
(error "This file is already registered"))
|
|
|
|
|
|
(and master
|
|
|
|
|
|
(not (y-or-n-p "Previous master file has vanished. Make a new one? "))
|
|
|
|
|
|
(error "This file is already registered")))
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
;; Watch out for new buffers of size 0: the corresponding file
|
|
|
|
|
|
;; does not exist yet, even though buffer-modified-p is nil.
|
|
|
|
|
|
(if (and (not (buffer-modified-p))
|
|
|
|
|
|
(zerop (buffer-size))
|
|
|
|
|
|
(not (file-exists-p buffer-file-name)))
|
|
|
|
|
|
(set-buffer-modified-p t))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(vc-buffer-sync)
|
1995-06-19 13:36:45 +00:00
|
|
|
|
(cond ((not vc-make-backup-files)
|
|
|
|
|
|
;; inhibit backup for this buffer
|
|
|
|
|
|
(make-local-variable 'backup-inhibited)
|
|
|
|
|
|
(setq backup-inhibited t)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(vc-admin
|
|
|
|
|
|
buffer-file-name
|
1998-02-27 18:44:14 +00:00
|
|
|
|
(or (and override
|
|
|
|
|
|
(read-string
|
|
|
|
|
|
(format "Initial version level for %s: " buffer-file-name)))
|
|
|
|
|
|
vc-default-init-version)
|
|
|
|
|
|
comment)
|
1998-03-08 10:03:50 +00:00
|
|
|
|
;; Recompute backend property (it may have been set to nil before).
|
1998-02-25 22:53:17 +00:00
|
|
|
|
(setq vc-buffer-backend (vc-backend (buffer-file-name)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
|
1992-10-26 05:33:20 +00:00
|
|
|
|
(defun vc-resynch-window (file &optional keep noquery)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; If the given file is in the current buffer,
|
1996-01-05 22:21:28 +00:00
|
|
|
|
;; either revert on it so we see expanded keywords,
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; or unvisit it (depending on vc-keep-workfiles)
|
1992-10-26 05:33:20 +00:00
|
|
|
|
;; NOQUERY if non-nil inhibits confirmation for reverting.
|
|
|
|
|
|
;; NOQUERY should be t *only* if it is known the only difference
|
|
|
|
|
|
;; between the buffer and the file is due to RCS rather than user editing!
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(and (string= buffer-file-name file)
|
|
|
|
|
|
(if keep
|
|
|
|
|
|
(progn
|
1993-02-22 14:17:16 +00:00
|
|
|
|
(vc-revert-buffer1 t noquery)
|
1998-01-07 14:33:37 +00:00
|
|
|
|
(and view-read-only
|
|
|
|
|
|
(if (file-writable-p file)
|
|
|
|
|
|
(and view-mode
|
|
|
|
|
|
(let ((view-old-buffer-read-only nil))
|
|
|
|
|
|
(view-mode-exit)))
|
|
|
|
|
|
(and (not view-mode)
|
|
|
|
|
|
(not (eq (get major-mode 'mode-class) 'special))
|
|
|
|
|
|
(view-mode-enter))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(vc-mode-line buffer-file-name))
|
Adapt to the changes in vc-hooks.el, namely, the new
'none-value of vc-locking-user, and the consistent caching
of all properties. Especially, make the properties survive
check-ins and check-outs. Various minor bug fixes.
(vc-file-clear-masterprops): New function.
(vc-backend-checkin, vc-backend-revert): Set vc-locking-user
to 'none if the file is unlocked.
(vc-backend-checkin, vc-backend-revert, vc-backend-checkout):
Use vc-file-clear-masterprops, and adjust those properties
that are not cleared.
(vc-resynch-window): Temporarily remove vc-find-file-hook, so
that we don't lose the file properties during check-in/out.
(vc-resynch-window): Do not try to delete the current window if
`vc-keep-workfiles' is nil (doesn't make sense; killing the
buffer is enough.)
(vc-backend-checkin): Rewrote the code that adjusts the default
branch and removes any locks that might remain after check-in.
(vc-cancel-version): Abort with error message in the CVS case.
(The error used to be signalled in vc-backend-uncheck, which is
a little too late.)
(vc-minor-revision): Function removed.
1995-06-16 18:02:51 +00:00
|
|
|
|
(kill-buffer (current-buffer)))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1995-07-29 01:40:43 +00:00
|
|
|
|
(defun vc-resynch-buffer (file &optional keep noquery)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;; if FILE is currently visited, resynch its buffer
|
1998-03-08 10:03:50 +00:00
|
|
|
|
(if (string= buffer-file-name file)
|
|
|
|
|
|
(vc-resynch-window file keep noquery)
|
|
|
|
|
|
(let ((buffer (get-file-buffer file)))
|
|
|
|
|
|
(if buffer
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer buffer)
|
|
|
|
|
|
(vc-resynch-window file keep noquery))))))
|
1995-07-29 01:40:43 +00:00
|
|
|
|
|
1994-07-06 22:08:03 +00:00
|
|
|
|
(defun vc-start-entry (file rev comment msg action &optional after-hook)
|
1993-04-08 16:35:52 +00:00
|
|
|
|
;; Accept a comment for an operation on FILE revision REV. If COMMENT
|
|
|
|
|
|
;; is nil, pop up a VC-log buffer, emit MSG, and set the
|
|
|
|
|
|
;; action on close to ACTION; otherwise, do action immediately.
|
1994-07-26 20:34:16 +00:00
|
|
|
|
;; Remember the file's buffer in vc-parent-buffer (current one if no file).
|
1994-07-06 22:08:03 +00:00
|
|
|
|
;; AFTER-HOOK specifies the local value for vc-log-operation-hook.
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(let ((parent (if file (find-file-noselect file) (current-buffer))))
|
1997-04-01 21:47:17 +00:00
|
|
|
|
(if vc-before-checkin-hook
|
|
|
|
|
|
(if file
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer parent)
|
|
|
|
|
|
(run-hooks 'vc-before-checkin-hook))
|
|
|
|
|
|
(run-hooks 'vc-before-checkin-hook)))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(if comment
|
|
|
|
|
|
(set-buffer (get-buffer-create "*VC-log*"))
|
|
|
|
|
|
(pop-to-buffer (get-buffer-create "*VC-log*")))
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(set (make-local-variable 'vc-parent-buffer) parent)
|
|
|
|
|
|
(set (make-local-variable 'vc-parent-buffer-name)
|
|
|
|
|
|
(concat " from " (buffer-name vc-parent-buffer)))
|
1995-06-26 23:42:30 +00:00
|
|
|
|
(if file (vc-mode-line file))
|
1997-02-27 01:21:24 +00:00
|
|
|
|
(vc-log-mode file)
|
1994-07-06 22:08:03 +00:00
|
|
|
|
(make-local-variable 'vc-log-after-operation-hook)
|
|
|
|
|
|
(if after-hook
|
|
|
|
|
|
(setq vc-log-after-operation-hook after-hook))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(setq vc-log-operation action)
|
|
|
|
|
|
(setq vc-log-version rev)
|
|
|
|
|
|
(if comment
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(erase-buffer)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(if (eq comment t)
|
|
|
|
|
|
(vc-finish-logentry t)
|
|
|
|
|
|
(insert comment)
|
|
|
|
|
|
(vc-finish-logentry nil)))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(message "%s Type C-c C-c when done." msg))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(defun vc-admin (file rev &optional comment)
|
1992-10-26 05:33:20 +00:00
|
|
|
|
"Check a file into your version-control system.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
FILE is the unmodified name of the file. REV should be the base version
|
1993-04-08 16:35:52 +00:00
|
|
|
|
level to check it in under. COMMENT, if specified, is the checkin comment."
|
1994-07-06 22:08:03 +00:00
|
|
|
|
(vc-start-entry file rev
|
|
|
|
|
|
(or comment (not vc-initial-comment))
|
|
|
|
|
|
"Enter initial comment." 'vc-backend-admin
|
1994-08-18 00:38:13 +00:00
|
|
|
|
nil))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(defun vc-checkout (file &optional writable rev)
|
1993-04-08 16:35:52 +00:00
|
|
|
|
"Retrieve a copy of the latest version of the given file."
|
|
|
|
|
|
;; If ftp is on this system and the name matches the ange-ftp format
|
|
|
|
|
|
;; for a remote file, the user is trying something that won't work.
|
|
|
|
|
|
(if (and (string-match "^/[^/:]+:" file) (vc-find-binary "ftp"))
|
|
|
|
|
|
(error "Sorry, you can't check out files over FTP"))
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(vc-backend-checkout file writable rev)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(vc-resynch-buffer file t t))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-steal-lock (file rev &optional owner)
|
|
|
|
|
|
"Steal the lock on the current workfile."
|
1994-09-24 00:58:07 +00:00
|
|
|
|
(let (file-description)
|
|
|
|
|
|
(if (not owner)
|
|
|
|
|
|
(setq owner (vc-locking-user file)))
|
|
|
|
|
|
(if rev
|
|
|
|
|
|
(setq file-description (format "%s:%s" file rev))
|
|
|
|
|
|
(setq file-description file))
|
1997-06-15 23:03:18 +00:00
|
|
|
|
(if (not (yes-or-no-p (format "Steal the lock on %s from %s? "
|
|
|
|
|
|
file-description owner)))
|
1994-09-24 00:58:07 +00:00
|
|
|
|
(error "Steal cancelled"))
|
|
|
|
|
|
(pop-to-buffer (get-buffer-create "*VC-mail*"))
|
|
|
|
|
|
(setq default-directory (expand-file-name "~/"))
|
|
|
|
|
|
(auto-save-mode auto-save-default)
|
|
|
|
|
|
(mail-mode)
|
|
|
|
|
|
(erase-buffer)
|
|
|
|
|
|
(mail-setup owner (format "Stolen lock on %s" file-description) nil nil nil
|
1994-09-24 01:08:40 +00:00
|
|
|
|
(list (list 'vc-finish-steal file rev)))
|
1994-09-24 00:58:07 +00:00
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(insert
|
|
|
|
|
|
(format "I stole the lock on %s, " file-description)
|
|
|
|
|
|
(current-time-string)
|
|
|
|
|
|
".\n")
|
|
|
|
|
|
(message "Please explain why you stole the lock. Type C-c C-c when done.")))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-10-05 21:09:26 +00:00
|
|
|
|
;; This is called when the notification has been sent.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-finish-steal (file version)
|
|
|
|
|
|
(vc-backend-steal file version)
|
1994-09-24 01:08:40 +00:00
|
|
|
|
(if (get-file-buffer file)
|
|
|
|
|
|
(save-excursion
|
1994-09-24 01:10:23 +00:00
|
|
|
|
(set-buffer (get-file-buffer file))
|
1994-09-24 01:08:40 +00:00
|
|
|
|
(vc-resynch-window file t t))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-checkin (file &optional rev comment)
|
|
|
|
|
|
"Check in the file specified by FILE.
|
|
|
|
|
|
The optional argument REV may be a string specifying the new version level
|
1992-09-27 01:51:04 +00:00
|
|
|
|
\(if nil increment the current level). The file is either retained with write
|
1993-05-12 21:30:35 +00:00
|
|
|
|
permissions zeroed, or deleted (according to the value of `vc-keep-workfiles').
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
If the back-end is CVS, a writable workfile is always kept.
|
1998-02-24 12:54:05 +00:00
|
|
|
|
COMMENT is a comment string; if omitted, a buffer is popped up to accept a
|
|
|
|
|
|
comment.
|
|
|
|
|
|
|
|
|
|
|
|
Runs the normal hook `vc-checkin-hook'."
|
1994-03-30 02:14:11 +00:00
|
|
|
|
(vc-start-entry file rev comment
|
1994-07-06 22:08:03 +00:00
|
|
|
|
"Enter a change comment." 'vc-backend-checkin
|
|
|
|
|
|
'vc-checkin-hook))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-07-18 23:54:45 +00:00
|
|
|
|
(defun vc-comment-to-change-log (&optional whoami file-name)
|
|
|
|
|
|
"Enter last VC comment into change log file for current buffer's file.
|
|
|
|
|
|
Optional arg (interactive prefix) non-nil means prompt for user name and site.
|
|
|
|
|
|
Second arg is file name of change log. \
|
1998-02-24 12:54:05 +00:00
|
|
|
|
If nil, uses `change-log-default-name'.
|
|
|
|
|
|
|
|
|
|
|
|
May be useful as a `vc-checkin-hook' to update change logs automatically."
|
1993-07-19 01:01:17 +00:00
|
|
|
|
(interactive (if current-prefix-arg
|
|
|
|
|
|
(list current-prefix-arg
|
|
|
|
|
|
(prompt-for-change-log-name))))
|
1994-02-09 23:02:28 +00:00
|
|
|
|
;; Make sure the defvar for add-log-current-defun-function has been executed
|
|
|
|
|
|
;; before binding it.
|
|
|
|
|
|
(require 'add-log)
|
1993-07-18 23:54:45 +00:00
|
|
|
|
(let (;; Extract the comment first so we get any error before doing anything.
|
|
|
|
|
|
(comment (ring-ref vc-comment-ring 0))
|
1993-07-19 01:01:17 +00:00
|
|
|
|
;; Don't let add-change-log-entry insert a defun name.
|
1993-07-18 23:54:45 +00:00
|
|
|
|
(add-log-current-defun-function 'ignore)
|
|
|
|
|
|
end)
|
|
|
|
|
|
;; Call add-log to do half the work.
|
1993-07-19 01:01:17 +00:00
|
|
|
|
(add-change-log-entry whoami file-name t t)
|
1993-07-18 23:54:45 +00:00
|
|
|
|
;; Insert the VC comment, leaving point before it.
|
|
|
|
|
|
(setq end (save-excursion (insert comment) (point-marker)))
|
|
|
|
|
|
(if (looking-at "\\s *\\s(")
|
|
|
|
|
|
;; It starts with an open-paren, as in "(foo): Frobbed."
|
1993-07-19 01:01:17 +00:00
|
|
|
|
;; So remove the ": " add-log inserted.
|
1993-07-18 23:54:45 +00:00
|
|
|
|
(delete-char -2))
|
|
|
|
|
|
;; Canonicalize the white space between the file name and comment.
|
|
|
|
|
|
(just-one-space)
|
|
|
|
|
|
;; Indent rest of the text the same way add-log indented the first line.
|
|
|
|
|
|
(let ((indentation (current-indentation)))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(while (< (point) end)
|
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
(indent-to indentation))
|
1993-07-19 00:06:14 +00:00
|
|
|
|
(setq end (point))))
|
1993-07-18 23:54:45 +00:00
|
|
|
|
;; Fill the inserted text, preserving open-parens at bol.
|
1995-03-02 15:55:09 +00:00
|
|
|
|
(let ((paragraph-separate (concat paragraph-separate "\\|\\s *\\s("))
|
|
|
|
|
|
(paragraph-start (concat paragraph-start "\\|\\s *\\s(")))
|
1993-07-19 01:01:17 +00:00
|
|
|
|
(beginning-of-line)
|
1993-07-19 00:06:14 +00:00
|
|
|
|
(fill-region (point) end))
|
|
|
|
|
|
;; Canonicalize the white space at the end of the entry so it is
|
|
|
|
|
|
;; separated from the next entry by a single blank line.
|
|
|
|
|
|
(skip-syntax-forward " " end)
|
|
|
|
|
|
(delete-char (- (skip-syntax-backward " ")))
|
|
|
|
|
|
(or (eobp) (looking-at "\n\n")
|
|
|
|
|
|
(insert "\n"))))
|
1993-07-18 23:54:45 +00:00
|
|
|
|
|
1993-03-28 06:40:46 +00:00
|
|
|
|
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defun vc-finish-logentry (&optional nocomment)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
"Complete the operation implied by the current log entry."
|
|
|
|
|
|
(interactive)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
;; Check and record the comment, if any.
|
|
|
|
|
|
(if (not nocomment)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
;; Comment too long?
|
|
|
|
|
|
(vc-backend-logentry-check vc-log-file)
|
|
|
|
|
|
;; Record the comment in the comment ring
|
|
|
|
|
|
(ring-insert vc-comment-ring (buffer-string))
|
|
|
|
|
|
))
|
1994-01-03 20:53:26 +00:00
|
|
|
|
;; Sync parent buffer in case the user modified it while editing the comment.
|
1994-07-26 20:34:16 +00:00
|
|
|
|
;; But not if it is a vc-dired buffer.
|
1994-01-03 20:53:26 +00:00
|
|
|
|
(save-excursion
|
1994-07-26 20:34:16 +00:00
|
|
|
|
(set-buffer vc-parent-buffer)
|
|
|
|
|
|
(or vc-dired-mode
|
|
|
|
|
|
(vc-buffer-sync)))
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(if (not vc-log-operation) (error "No log operation is pending"))
|
|
|
|
|
|
;; save the parameters held in buffer-local variables
|
|
|
|
|
|
(let ((log-operation vc-log-operation)
|
|
|
|
|
|
(log-file vc-log-file)
|
|
|
|
|
|
(log-version vc-log-version)
|
|
|
|
|
|
(log-entry (buffer-string))
|
|
|
|
|
|
(after-hook vc-log-after-operation-hook))
|
1994-07-13 09:34:01 +00:00
|
|
|
|
(pop-to-buffer vc-parent-buffer)
|
1995-08-18 20:29:14 +00:00
|
|
|
|
;; OK, do it to it
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(funcall log-operation
|
|
|
|
|
|
log-file
|
|
|
|
|
|
log-version
|
|
|
|
|
|
log-entry))
|
1998-01-18 03:27:05 +00:00
|
|
|
|
;; Remove checkin window (after the checkin so that if that fails
|
|
|
|
|
|
;; we don't zap the *VC-log* buffer and the typing therein).
|
|
|
|
|
|
(let ((logbuf (get-buffer "*VC-log*")))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(cond (logbuf
|
1998-07-08 02:55:50 +00:00
|
|
|
|
(delete-windows-on logbuf (selected-frame))
|
1998-07-09 03:47:06 +00:00
|
|
|
|
;; Kill buffer and delete any other dedicated windows/frames.
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(kill-buffer logbuf))))
|
1994-07-13 09:34:01 +00:00
|
|
|
|
;; Now make sure we see the expanded headers
|
|
|
|
|
|
(if buffer-file-name
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(vc-resynch-window buffer-file-name vc-keep-workfiles t))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(if vc-dired-mode
|
|
|
|
|
|
(dired-move-to-filename))
|
1997-02-27 01:21:24 +00:00
|
|
|
|
(run-hooks after-hook 'vc-finish-logentry-hook)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
;; Code for access to the comment ring
|
|
|
|
|
|
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defun vc-previous-comment (arg)
|
|
|
|
|
|
"Cycle backwards through comment history."
|
|
|
|
|
|
(interactive "*p")
|
|
|
|
|
|
(let ((len (ring-length vc-comment-ring)))
|
|
|
|
|
|
(cond ((<= len 0)
|
|
|
|
|
|
(message "Empty comment ring")
|
|
|
|
|
|
(ding))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(erase-buffer)
|
|
|
|
|
|
;; Initialize the index on the first use of this command
|
|
|
|
|
|
;; so that the first M-p gets index 0, and the first M-n gets
|
|
|
|
|
|
;; index -1.
|
|
|
|
|
|
(if (null vc-comment-ring-index)
|
|
|
|
|
|
(setq vc-comment-ring-index
|
|
|
|
|
|
(if (> arg 0) -1
|
|
|
|
|
|
(if (< arg 0) 1 0))))
|
|
|
|
|
|
(setq vc-comment-ring-index
|
1993-08-10 04:14:17 +00:00
|
|
|
|
(mod (+ vc-comment-ring-index arg) len))
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(message "%d" (1+ vc-comment-ring-index))
|
|
|
|
|
|
(insert (ring-ref vc-comment-ring vc-comment-ring-index))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-next-comment (arg)
|
|
|
|
|
|
"Cycle forwards through comment history."
|
|
|
|
|
|
(interactive "*p")
|
|
|
|
|
|
(vc-previous-comment (- arg)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-comment-search-reverse (str)
|
|
|
|
|
|
"Searches backwards through comment history for substring match."
|
|
|
|
|
|
(interactive "sComment substring: ")
|
|
|
|
|
|
(if (string= str "")
|
|
|
|
|
|
(setq str vc-last-comment-match)
|
|
|
|
|
|
(setq vc-last-comment-match str))
|
|
|
|
|
|
(if (null vc-comment-ring-index)
|
|
|
|
|
|
(setq vc-comment-ring-index -1))
|
|
|
|
|
|
(let ((str (regexp-quote str))
|
|
|
|
|
|
(len (ring-length vc-comment-ring))
|
|
|
|
|
|
(n (1+ vc-comment-ring-index)))
|
|
|
|
|
|
(while (and (< n len) (not (string-match str (ring-ref vc-comment-ring n))))
|
|
|
|
|
|
(setq n (+ n 1)))
|
|
|
|
|
|
(cond ((< n len)
|
|
|
|
|
|
(vc-previous-comment (- n vc-comment-ring-index)))
|
|
|
|
|
|
(t (error "Not found")))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-comment-search-forward (str)
|
|
|
|
|
|
"Searches forwards through comment history for substring match."
|
|
|
|
|
|
(interactive "sComment substring: ")
|
|
|
|
|
|
(if (string= str "")
|
|
|
|
|
|
(setq str vc-last-comment-match)
|
|
|
|
|
|
(setq vc-last-comment-match str))
|
|
|
|
|
|
(if (null vc-comment-ring-index)
|
|
|
|
|
|
(setq vc-comment-ring-index 0))
|
|
|
|
|
|
(let ((str (regexp-quote str))
|
|
|
|
|
|
(len (ring-length vc-comment-ring))
|
|
|
|
|
|
(n vc-comment-ring-index))
|
|
|
|
|
|
(while (and (>= n 0) (not (string-match str (ring-ref vc-comment-ring n))))
|
|
|
|
|
|
(setq n (- n 1)))
|
|
|
|
|
|
(cond ((>= n 0)
|
|
|
|
|
|
(vc-next-comment (- n vc-comment-ring-index)))
|
|
|
|
|
|
(t (error "Not found")))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
;; Additional entry points for examining version histories
|
|
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1993-12-24 23:07:23 +00:00
|
|
|
|
(defun vc-diff (historic &optional not-urgent)
|
1993-05-04 19:52:02 +00:00
|
|
|
|
"Display diffs between file versions.
|
|
|
|
|
|
Normally this compares the current file and buffer with the most recent
|
|
|
|
|
|
checked in version of that file. This uses no arguments.
|
|
|
|
|
|
With a prefix argument, it reads the file name to use
|
|
|
|
|
|
and two version designators specifying which versions to compare."
|
1996-01-26 19:36:34 +00:00
|
|
|
|
(interactive (list current-prefix-arg t))
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(if historic
|
|
|
|
|
|
(call-interactively 'vc-version-diff)
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(let ((file buffer-file-name)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
unchanged)
|
1997-07-31 06:23:19 +00:00
|
|
|
|
(vc-buffer-sync not-urgent)
|
|
|
|
|
|
(setq unchanged (vc-workfile-unchanged-p buffer-file-name))
|
|
|
|
|
|
(if unchanged
|
|
|
|
|
|
(message "No changes to %s since latest version" file)
|
|
|
|
|
|
(vc-backend-diff file)
|
|
|
|
|
|
;; Ideally, we'd like at this point to parse the diff so that
|
|
|
|
|
|
;; the buffer effectively goes into compilation mode and we
|
|
|
|
|
|
;; can visit the old and new change locations via next-error.
|
|
|
|
|
|
;; Unfortunately, this is just too painful to do. The basic
|
|
|
|
|
|
;; problem is that the `old' file doesn't exist to be
|
|
|
|
|
|
;; visited. This plays hell with numerous assumptions in
|
|
|
|
|
|
;; the diff.el and compile.el machinery.
|
|
|
|
|
|
(set-buffer "*vc-diff*")
|
|
|
|
|
|
(setq default-directory (file-name-directory file))
|
|
|
|
|
|
(if (= 0 (buffer-size))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(setq unchanged t)
|
|
|
|
|
|
(message "No changes to %s since latest version" file))
|
|
|
|
|
|
(pop-to-buffer "*vc-diff*")
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(shrink-window-if-larger-than-buffer)))
|
|
|
|
|
|
(not unchanged))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-version-diff (file rel1 rel2)
|
|
|
|
|
|
"For FILE, report diffs between two stored versions REL1 and REL2 of it.
|
|
|
|
|
|
If FILE is a directory, generate diffs between versions for all registered
|
|
|
|
|
|
files in or below it."
|
1997-07-31 06:23:19 +00:00
|
|
|
|
(interactive
|
1997-08-23 06:17:08 +00:00
|
|
|
|
(let ((file (read-file-name (if buffer-file-name
|
|
|
|
|
|
"File or dir to diff: (default visited file) "
|
|
|
|
|
|
"File or dir to diff: ")
|
1997-08-04 04:29:53 +00:00
|
|
|
|
default-directory buffer-file-name t))
|
1997-07-31 06:23:19 +00:00
|
|
|
|
(rel1-default nil) (rel2-default nil))
|
|
|
|
|
|
;; compute default versions based on the file state
|
|
|
|
|
|
(cond
|
|
|
|
|
|
;; if it's a directory, don't supply any version defauolt
|
|
|
|
|
|
((file-directory-p file)
|
|
|
|
|
|
nil)
|
|
|
|
|
|
;; if the file is locked, use current version as older version
|
|
|
|
|
|
((vc-locking-user file)
|
|
|
|
|
|
(setq rel1-default (vc-workfile-version file)))
|
|
|
|
|
|
;; if the file is not locked, use last and previous version as default
|
|
|
|
|
|
(t
|
|
|
|
|
|
(setq rel1-default (vc-previous-version (vc-workfile-version file)))
|
|
|
|
|
|
(setq rel2-default (vc-workfile-version file))))
|
|
|
|
|
|
;; construct argument list
|
|
|
|
|
|
(list file
|
1997-08-04 04:29:53 +00:00
|
|
|
|
(read-string (if rel1-default
|
|
|
|
|
|
(concat "Older version: (default "
|
|
|
|
|
|
rel1-default ") ")
|
|
|
|
|
|
"Older version: ")
|
|
|
|
|
|
nil nil rel1-default)
|
|
|
|
|
|
(read-string (if rel2-default
|
|
|
|
|
|
(concat "Newer version: (default "
|
|
|
|
|
|
rel2-default ") ")
|
1997-08-05 21:38:52 +00:00
|
|
|
|
"Newer version (default: current source): ")
|
1997-08-04 04:29:53 +00:00
|
|
|
|
nil nil rel2-default))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(if (string-equal rel1 "") (setq rel1 nil))
|
|
|
|
|
|
(if (string-equal rel2 "") (setq rel2 nil))
|
|
|
|
|
|
(if (file-directory-p file)
|
1993-03-28 06:40:46 +00:00
|
|
|
|
(let ((camefrom (current-buffer)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(set-buffer (get-buffer-create "*vc-status*"))
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(set (make-local-variable 'vc-parent-buffer) camefrom)
|
|
|
|
|
|
(set (make-local-variable 'vc-parent-buffer-name)
|
|
|
|
|
|
(concat " from " (buffer-name camefrom)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(erase-buffer)
|
1993-03-09 22:56:29 +00:00
|
|
|
|
(insert "Diffs between "
|
|
|
|
|
|
(or rel1 "last version checked in")
|
|
|
|
|
|
" and "
|
|
|
|
|
|
(or rel2 "current workfile(s)")
|
|
|
|
|
|
":\n\n")
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(set-buffer (get-buffer-create "*vc-diff*"))
|
1993-04-08 16:35:52 +00:00
|
|
|
|
(cd file)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(vc-file-tree-walk
|
1995-09-08 20:39:17 +00:00
|
|
|
|
default-directory
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(function (lambda (f)
|
1993-03-16 21:09:56 +00:00
|
|
|
|
(message "Looking at %s" f)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(and
|
1993-03-09 22:56:29 +00:00
|
|
|
|
(not (file-directory-p f))
|
|
|
|
|
|
(vc-registered f)
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(vc-backend-diff f rel1 rel2)
|
|
|
|
|
|
(append-to-buffer "*vc-status*" (point-min) (point-max)))
|
|
|
|
|
|
)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(pop-to-buffer "*vc-status*")
|
|
|
|
|
|
(insert "\nEnd of diffs.\n")
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
|
|
)
|
1993-05-13 12:05:52 +00:00
|
|
|
|
(if (zerop (vc-backend-diff file rel1 rel2))
|
|
|
|
|
|
(message "No changes to %s between %s and %s." file rel1 rel2)
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(pop-to-buffer "*vc-diff*"))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-09-15 23:19:13 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun vc-version-other-window (rev)
|
|
|
|
|
|
"Visit version REV of the current buffer in another window.
|
|
|
|
|
|
If the current buffer is named `F', the version is named `F.~REV~'.
|
|
|
|
|
|
If `F.~REV~' already exists, it is used instead of being re-created."
|
|
|
|
|
|
(interactive "sVersion to visit (default is latest version): ")
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
|
|
|
|
|
(let* ((version (if (string-equal rev "")
|
|
|
|
|
|
(vc-latest-version buffer-file-name)
|
|
|
|
|
|
rev))
|
|
|
|
|
|
(filename (concat buffer-file-name ".~" version "~")))
|
|
|
|
|
|
(or (file-exists-p filename)
|
|
|
|
|
|
(vc-backend-checkout buffer-file-name nil version filename))
|
|
|
|
|
|
(find-file-other-window filename)))
|
1993-09-15 23:19:13 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Header-insertion code
|
|
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-insert-headers ()
|
|
|
|
|
|
"Insert headers in a file for use with your version-control system.
|
1998-09-10 21:50:05 +00:00
|
|
|
|
Headers desired are inserted at point, and are pulled from
|
1993-05-12 21:30:35 +00:00
|
|
|
|
the variable `vc-header-alist'."
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(interactive)
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(save-restriction
|
|
|
|
|
|
(widen)
|
|
|
|
|
|
(if (or (not (vc-check-headers))
|
1993-05-29 03:10:35 +00:00
|
|
|
|
(y-or-n-p "Version headers already exist. Insert another set? "))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(let* ((delims (cdr (assq major-mode vc-comment-alist)))
|
|
|
|
|
|
(comment-start-vc (or (car delims) comment-start "#"))
|
|
|
|
|
|
(comment-end-vc (or (car (cdr delims)) comment-end ""))
|
(vc-next-action-on-file): Add missing let-binding.
(vc-default-backend, vc-keep-workfiles, vc-consult-headers):
(vc-mistrust-permissions, vc-path): Vars moved to vc-hooks.el.
(vc-match-substring, vc-lock-file, vc-parse-buffer, vc-master-info):
(vc-log-info, vc-consult-rcs-headers, vc-fetch-properties):
(vc-backend-subdirectory-name, vc-locking-user, vc-true-locking-user):
(vc-latest-version, vc-your-latest-version, vc-branch-version):
(vc-workfile-version): Functions moved to vc-hooks.el.
(vc-trunk-p, vc-minor-revision, vc-branch-part): Functions moved
here from vc-hooks.el.
1995-04-26 21:47:35 +00:00
|
|
|
|
(hdstrings (cdr (assoc (vc-backend (buffer-file-name)) vc-header-alist))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(mapcar (function (lambda (s)
|
|
|
|
|
|
(insert comment-start-vc "\t" s "\t"
|
|
|
|
|
|
comment-end-vc "\n")))
|
|
|
|
|
|
hdstrings)
|
|
|
|
|
|
(if vc-static-header-alist
|
|
|
|
|
|
(mapcar (function (lambda (f)
|
|
|
|
|
|
(if (string-match (car f) buffer-file-name)
|
|
|
|
|
|
(insert (format (cdr f) (car hdstrings))))))
|
|
|
|
|
|
vc-static-header-alist))
|
|
|
|
|
|
)
|
|
|
|
|
|
)))))
|
|
|
|
|
|
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(defun vc-clear-headers ()
|
|
|
|
|
|
;; Clear all version headers in the current buffer, i.e. reset them
|
|
|
|
|
|
;; to the nonexpanded form. Only implemented for RCS, yet.
|
|
|
|
|
|
;; Don't lose point and mark during this.
|
1997-07-18 16:06:57 +00:00
|
|
|
|
(let ((context (vc-buffer-context))
|
|
|
|
|
|
(case-fold-search nil))
|
1998-03-08 10:03:50 +00:00
|
|
|
|
;; save-excursion may be able to relocate point and mark properly.
|
|
|
|
|
|
;; If it fails, vc-restore-buffer-context will give it a second try.
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (re-search-forward
|
|
|
|
|
|
(concat "\\$\\(Author\\|Date\\|Header\\|Id\\|Locker\\|Name\\|"
|
|
|
|
|
|
"RCSfile\\|Revision\\|Source\\|State\\): [^$\n]+\\$")
|
|
|
|
|
|
nil t)
|
|
|
|
|
|
(replace-match "$\\1$")))
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(vc-restore-buffer-context context)))
|
|
|
|
|
|
|
1998-04-05 18:43:15 +00:00
|
|
|
|
;;;###autoload
|
1998-04-05 18:45:06 +00:00
|
|
|
|
(defun vc-merge ()
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(vc-ensure-vc-buffer)
|
|
|
|
|
|
(vc-buffer-sync)
|
|
|
|
|
|
(let* ((file buffer-file-name)
|
|
|
|
|
|
(backend (vc-backend file))
|
|
|
|
|
|
first-version second-version locking-user)
|
|
|
|
|
|
(if (eq backend 'SCCS)
|
|
|
|
|
|
(error "Sorry, merging is not implemented for SCCS")
|
|
|
|
|
|
(setq locking-user (vc-locking-user file))
|
|
|
|
|
|
(if (eq (vc-checkout-model file) 'manual)
|
|
|
|
|
|
(if (not locking-user)
|
|
|
|
|
|
(if (not (y-or-n-p
|
|
|
|
|
|
(format "File must be %s for merging. %s now? "
|
|
|
|
|
|
(if (eq backend 'RCS) "locked" "writable")
|
|
|
|
|
|
(if (eq backend 'RCS) "Lock" "Check out"))))
|
|
|
|
|
|
(error "Merge aborted")
|
|
|
|
|
|
(vc-checkout file t))
|
|
|
|
|
|
(if (not (string= locking-user (vc-user-login-name)))
|
|
|
|
|
|
(error "File is locked by %s" locking-user))))
|
|
|
|
|
|
(setq first-version (read-string "Branch or version to merge from: "))
|
|
|
|
|
|
(if (and (>= (elt first-version 0) ?0)
|
|
|
|
|
|
(<= (elt first-version 0) ?9))
|
|
|
|
|
|
(if (not (vc-branch-p first-version))
|
|
|
|
|
|
(setq second-version
|
|
|
|
|
|
(read-string "Second version: "
|
|
|
|
|
|
(concat (vc-branch-part first-version) ".")))
|
|
|
|
|
|
;; We want to merge an entire branch. Set versions
|
|
|
|
|
|
;; accordingly, so that vc-backend-merge understands us.
|
|
|
|
|
|
(setq second-version first-version)
|
|
|
|
|
|
;; first-version must be the starting point of the branch
|
|
|
|
|
|
(setq first-version (vc-branch-part first-version))))
|
|
|
|
|
|
(let ((status (vc-backend-merge file first-version second-version)))
|
|
|
|
|
|
(if (and (eq (vc-checkout-model file) 'implicit)
|
|
|
|
|
|
(not (vc-locking-user file)))
|
|
|
|
|
|
(vc-file-setprop file 'vc-locking-user nil))
|
|
|
|
|
|
(vc-resynch-buffer file t t)
|
|
|
|
|
|
(if (not (zerop status))
|
|
|
|
|
|
(if (y-or-n-p "Conflicts detected. Resolve them now? ")
|
|
|
|
|
|
(vc-resolve-conflicts "WORKFILE" "MERGE SOURCE")
|
|
|
|
|
|
(message "File contains conflict markers"))
|
|
|
|
|
|
(message "Merge successful"))))))
|
|
|
|
|
|
|
1998-12-02 13:34:59 +00:00
|
|
|
|
(defvar vc-ediff-windows)
|
|
|
|
|
|
(defvar vc-ediff-result)
|
|
|
|
|
|
|
1998-04-05 18:45:06 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun vc-resolve-conflicts (&optional name-A name-B)
|
1998-03-31 17:19:32 +00:00
|
|
|
|
"Invoke ediff to resolve conflicts in the current buffer.
|
|
|
|
|
|
The conflicts must be marked with rcsmerge conflict markers."
|
|
|
|
|
|
(interactive)
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
1998-03-31 17:19:32 +00:00
|
|
|
|
(let* ((found nil)
|
|
|
|
|
|
(file-name (file-name-nondirectory buffer-file-name))
|
|
|
|
|
|
(your-buffer (generate-new-buffer
|
1998-04-05 18:45:06 +00:00
|
|
|
|
(concat "*" file-name
|
|
|
|
|
|
" " (or name-A "WORKFILE") "*")))
|
1998-03-31 17:19:32 +00:00
|
|
|
|
(other-buffer (generate-new-buffer
|
1998-04-05 18:45:06 +00:00
|
|
|
|
(concat "*" file-name
|
|
|
|
|
|
" " (or name-B "CHECKED-IN") "*")))
|
1998-03-31 17:19:32 +00:00
|
|
|
|
(result-buffer (current-buffer)))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer your-buffer)
|
|
|
|
|
|
(erase-buffer)
|
|
|
|
|
|
(insert-buffer result-buffer)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (re-search-forward (concat "^<<<<<<< "
|
|
|
|
|
|
(regexp-quote file-name) "\n") nil t)
|
|
|
|
|
|
(setq found t)
|
|
|
|
|
|
(replace-match "")
|
|
|
|
|
|
(if (not (re-search-forward "^=======\n" nil t))
|
|
|
|
|
|
(error "Malformed conflict marker"))
|
|
|
|
|
|
(replace-match "")
|
|
|
|
|
|
(let ((start (point)))
|
|
|
|
|
|
(if (not (re-search-forward "^>>>>>>> [0-9.]+\n" nil t))
|
|
|
|
|
|
(error "Malformed conflict marker"))
|
|
|
|
|
|
(delete-region start (point))))
|
|
|
|
|
|
(if (not found)
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(kill-buffer your-buffer)
|
|
|
|
|
|
(kill-buffer other-buffer)
|
|
|
|
|
|
(error "No conflict markers found")))
|
|
|
|
|
|
(set-buffer other-buffer)
|
|
|
|
|
|
(erase-buffer)
|
|
|
|
|
|
(insert-buffer result-buffer)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (re-search-forward (concat "^<<<<<<< "
|
|
|
|
|
|
(regexp-quote file-name) "\n") nil t)
|
|
|
|
|
|
(let ((start (match-beginning 0)))
|
|
|
|
|
|
(if (not (re-search-forward "^=======\n" nil t))
|
|
|
|
|
|
(error "Malformed conflict marker"))
|
|
|
|
|
|
(delete-region start (point))
|
|
|
|
|
|
(if (not (re-search-forward "^>>>>>>> [0-9.]+\n" nil t))
|
|
|
|
|
|
(error "Malformed conflict marker"))
|
|
|
|
|
|
(replace-match "")))
|
|
|
|
|
|
(let ((config (current-window-configuration))
|
|
|
|
|
|
(ediff-default-variant 'default-B))
|
|
|
|
|
|
|
|
|
|
|
|
;; Fire up ediff.
|
|
|
|
|
|
|
|
|
|
|
|
(set-buffer (ediff-merge-buffers your-buffer other-buffer))
|
|
|
|
|
|
|
|
|
|
|
|
;; Ediff is now set up, and we are in the control buffer.
|
|
|
|
|
|
;; Do a few further adjustments and take precautions for exit.
|
|
|
|
|
|
|
|
|
|
|
|
(make-local-variable 'vc-ediff-windows)
|
|
|
|
|
|
(setq vc-ediff-windows config)
|
|
|
|
|
|
(make-local-variable 'vc-ediff-result)
|
|
|
|
|
|
(setq vc-ediff-result result-buffer)
|
|
|
|
|
|
(make-local-variable 'ediff-quit-hook)
|
|
|
|
|
|
(setq ediff-quit-hook
|
|
|
|
|
|
(function
|
|
|
|
|
|
(lambda ()
|
|
|
|
|
|
(let ((buffer-A ediff-buffer-A)
|
|
|
|
|
|
(buffer-B ediff-buffer-B)
|
|
|
|
|
|
(buffer-C ediff-buffer-C)
|
|
|
|
|
|
(result vc-ediff-result)
|
|
|
|
|
|
(windows vc-ediff-windows))
|
|
|
|
|
|
(ediff-cleanup-mess)
|
|
|
|
|
|
(set-buffer result)
|
|
|
|
|
|
(erase-buffer)
|
|
|
|
|
|
(insert-buffer buffer-C)
|
|
|
|
|
|
(kill-buffer buffer-A)
|
|
|
|
|
|
(kill-buffer buffer-B)
|
|
|
|
|
|
(kill-buffer buffer-C)
|
|
|
|
|
|
(set-window-configuration windows)
|
|
|
|
|
|
(message "Conflict resolution finished; you may save the buffer")))))
|
|
|
|
|
|
(message "Please resolve conflicts now; exit ediff when done")
|
|
|
|
|
|
nil))))
|
|
|
|
|
|
|
1995-09-08 20:39:17 +00:00
|
|
|
|
;; The VC directory major mode. Coopt Dired for this.
|
1993-04-08 16:35:52 +00:00
|
|
|
|
;; All VC commands get mapped into logical equivalents.
|
|
|
|
|
|
|
1998-12-02 13:34:59 +00:00
|
|
|
|
(defvar vc-dired-switches)
|
|
|
|
|
|
(defvar vc-dired-terse-mode)
|
|
|
|
|
|
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(define-derived-mode vc-dired-mode dired-mode "Dired under VC"
|
1998-04-04 05:22:37 +00:00
|
|
|
|
"The major mode used in VC directory buffers. It works like Dired,
|
|
|
|
|
|
but lists only files under version control, with the current VC state of
|
|
|
|
|
|
each file being indicated in the place of the file's link count, owner,
|
|
|
|
|
|
group and size. Subdirectories are also listed, and you may insert them
|
|
|
|
|
|
into the buffer as desired, like in Dired.
|
|
|
|
|
|
All Dired commands operate normally, with the exception of `v', which
|
|
|
|
|
|
is redefined as the version control prefix, so that you can type
|
|
|
|
|
|
`vl', `v=' etc. to invoke `vc-print-log', `vc-diff', and the like on
|
|
|
|
|
|
the file named in the current Dired buffer line. `vv' invokes
|
|
|
|
|
|
`vc-next-action' on this file, or on all files currently marked.
|
|
|
|
|
|
There is a special command, `*l', to mark all files currently locked."
|
1998-04-05 18:54:35 +00:00
|
|
|
|
(make-local-hook 'dired-after-readin-hook)
|
|
|
|
|
|
(add-hook 'dired-after-readin-hook 'vc-dired-hook nil t)
|
1998-04-15 10:13:07 +00:00
|
|
|
|
;; The following is slightly modified from dired.el,
|
|
|
|
|
|
;; because file lines look a bit different in vc-dired-mode.
|
|
|
|
|
|
(set (make-local-variable 'dired-move-to-filename-regexp)
|
|
|
|
|
|
(let*
|
|
|
|
|
|
((l "\\([A-Za-z]\\|[^\0-\177]\\)")
|
|
|
|
|
|
;; In some locales, month abbreviations are as short as 2 letters,
|
|
|
|
|
|
;; and they can be padded on the right with spaces.
|
|
|
|
|
|
(month (concat l l "+ *"))
|
|
|
|
|
|
;; Recognize any non-ASCII character.
|
|
|
|
|
|
;; The purpose is to match a Kanji character.
|
|
|
|
|
|
(k "[^\0-\177]")
|
|
|
|
|
|
;; (k "[^\x00-\x7f\x80-\xff]")
|
|
|
|
|
|
(s " ")
|
|
|
|
|
|
(yyyy "[0-9][0-9][0-9][0-9]")
|
|
|
|
|
|
(mm "[ 0-1][0-9]")
|
|
|
|
|
|
(dd "[ 0-3][0-9]")
|
|
|
|
|
|
(HH:MM "[ 0-2][0-9]:[0-5][0-9]")
|
|
|
|
|
|
(western (concat "\\(" month s dd "\\|" dd s month "\\)"
|
|
|
|
|
|
s "\\(" HH:MM "\\|" s yyyy "\\)"))
|
|
|
|
|
|
(japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)")))
|
|
|
|
|
|
(concat s "\\(" western "\\|" japanese "\\)" s)))
|
1998-06-05 12:46:29 +00:00
|
|
|
|
(and (boundp 'vc-dired-switches)
|
|
|
|
|
|
vc-dired-switches
|
|
|
|
|
|
(set (make-local-variable 'dired-actual-switches)
|
|
|
|
|
|
vc-dired-switches))
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(set (make-local-variable 'vc-dired-terse-mode) vc-dired-terse-display)
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(setq vc-dired-mode t))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key vc-dired-mode-map "\C-xv" vc-prefix-map)
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(define-key vc-dired-mode-map "v" vc-prefix-map)
|
1998-06-11 15:33:13 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-dired-toggle-terse-mode ()
|
|
|
|
|
|
"Toggle terse display in VC Dired."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(if (not vc-dired-mode)
|
|
|
|
|
|
nil
|
|
|
|
|
|
(setq vc-dired-terse-mode (not vc-dired-terse-mode))
|
|
|
|
|
|
(if vc-dired-terse-mode
|
|
|
|
|
|
(vc-dired-hook)
|
|
|
|
|
|
(revert-buffer))))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key vc-dired-mode-map "vt" 'vc-dired-toggle-terse-mode)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(defun vc-dired-mark-locked ()
|
|
|
|
|
|
"Mark all files currently locked."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(dired-mark-if (let ((f (dired-get-filename nil t)))
|
|
|
|
|
|
(and f
|
|
|
|
|
|
(not (file-directory-p f))
|
|
|
|
|
|
(vc-locking-user f)))
|
|
|
|
|
|
"locked file"))
|
|
|
|
|
|
|
|
|
|
|
|
(define-key vc-dired-mode-map "*l" 'vc-dired-mark-locked)
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-fetch-cvs-status (dir)
|
|
|
|
|
|
(let ((default-directory dir))
|
1998-05-02 16:41:08 +00:00
|
|
|
|
;; Don't specify DIR in this command, the default-directory is
|
|
|
|
|
|
;; enough. Otherwise it might fail with remote repositories.
|
|
|
|
|
|
(vc-do-command "*vc-info*" 0 "cvs" nil nil "status")
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (get-buffer "*vc-info*"))
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (re-search-forward "^=+\n\\([^=\n].*\n\\|\n\\)+" nil t)
|
|
|
|
|
|
(narrow-to-region (match-beginning 0) (match-end 0))
|
|
|
|
|
|
(vc-parse-cvs-status)
|
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(widen)))))
|
|
|
|
|
|
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(defun vc-dired-state-info (file)
|
|
|
|
|
|
;; Return the string that indicates the version control status
|
|
|
|
|
|
;; on a VC dired line.
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(let* ((cvs-state (and (eq (vc-backend file) 'CVS)
|
|
|
|
|
|
(vc-cvs-status file)))
|
|
|
|
|
|
(state
|
|
|
|
|
|
(if cvs-state
|
|
|
|
|
|
(cond ((eq cvs-state 'up-to-date) nil)
|
|
|
|
|
|
((eq cvs-state 'needs-checkout) "patch")
|
|
|
|
|
|
((eq cvs-state 'locally-modified) "modified")
|
|
|
|
|
|
((eq cvs-state 'needs-merge) "merge")
|
|
|
|
|
|
((eq cvs-state 'unresolved-conflict) "conflict")
|
|
|
|
|
|
((eq cvs-state 'locally-added) "added"))
|
|
|
|
|
|
(vc-locking-user file))))
|
|
|
|
|
|
(if state (concat "(" state ")"))))
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(defun vc-dired-reformat-line (x)
|
1998-04-15 10:13:07 +00:00
|
|
|
|
;; Reformat a directory-listing line, replacing various columns with
|
|
|
|
|
|
;; version control information.
|
1993-04-25 22:26:40 +00:00
|
|
|
|
;; This code, like dired, assumes UNIX -l format.
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(beginning-of-line)
|
1998-04-15 10:13:07 +00:00
|
|
|
|
(let ((pos (point)) limit perm date-and-file)
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(end-of-line)
|
|
|
|
|
|
(setq limit (point))
|
|
|
|
|
|
(goto-char pos)
|
1998-04-15 10:13:07 +00:00
|
|
|
|
(when
|
|
|
|
|
|
(or
|
|
|
|
|
|
(re-search-forward ;; owner and group
|
|
|
|
|
|
"^\\(..[drwxlts-]+ \\) *[0-9]+ [^ ]+ +[^ ]+ +[0-9]+\\( .*\\)"
|
|
|
|
|
|
limit t)
|
|
|
|
|
|
(re-search-forward ;; only owner displayed
|
|
|
|
|
|
"^\\(..[drwxlts-]+ \\) *[0-9]+ [^ ]+ +[0-9]+\\( .*\\)"
|
|
|
|
|
|
limit t)
|
|
|
|
|
|
(re-search-forward ;; OS/2 -l format, no links, owner, group
|
|
|
|
|
|
"^\\(..[drwxlts-]+ \\) *[0-9]+\\( .*\\)"
|
|
|
|
|
|
limit t))
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(setq perm (match-string 1)
|
1998-04-15 10:13:07 +00:00
|
|
|
|
date-and-file (match-string 2))
|
|
|
|
|
|
(setq x (substring (concat x " ") 0 10))
|
|
|
|
|
|
(replace-match (concat perm x date-and-file)))))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-dired-hook ()
|
|
|
|
|
|
;; Called by dired after any portion of a vc-dired buffer has been read in.
|
|
|
|
|
|
;; Reformat the listing according to version control.
|
|
|
|
|
|
(message "Getting version information... ")
|
1998-05-02 16:41:08 +00:00
|
|
|
|
(let (subdir filename (buffer-read-only nil) cvs-dir)
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (not (eq (point) (point-max)))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
;; subdir header line
|
|
|
|
|
|
((setq subdir (dired-get-subdir))
|
|
|
|
|
|
(if (file-directory-p (concat subdir "/CVS"))
|
1998-05-02 16:41:08 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(vc-fetch-cvs-status (file-name-as-directory subdir))
|
|
|
|
|
|
(setq cvs-dir t))
|
|
|
|
|
|
(setq cvs-dir nil))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
;; erase (but don't remove) the "total" line
|
|
|
|
|
|
(let ((start (point)))
|
|
|
|
|
|
(end-of-line)
|
|
|
|
|
|
(delete-region start (point))
|
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
|
(forward-line 1)))
|
1998-06-11 15:33:13 +00:00
|
|
|
|
;; directory entry
|
1998-04-04 05:22:37 +00:00
|
|
|
|
((setq filename (dired-get-filename nil t))
|
|
|
|
|
|
(cond
|
1998-06-11 15:33:13 +00:00
|
|
|
|
;; subdir
|
1998-04-04 05:22:37 +00:00
|
|
|
|
((file-directory-p filename)
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((member (file-name-nondirectory filename)
|
|
|
|
|
|
vc-directory-exclusion-list)
|
|
|
|
|
|
(let ((pos (point)))
|
|
|
|
|
|
(dired-kill-tree filename)
|
|
|
|
|
|
(goto-char pos)
|
|
|
|
|
|
(dired-kill-line)))
|
|
|
|
|
|
(vc-dired-terse-mode
|
1998-06-12 11:13:37 +00:00
|
|
|
|
;; Don't show directories in terse mode. Don't use
|
|
|
|
|
|
;; dired-kill-line to remove it, because in recursive listings,
|
|
|
|
|
|
;; that would remove the directory contents as well.
|
|
|
|
|
|
(delete-region (progn (beginning-of-line) (point))
|
|
|
|
|
|
(progn (forward-line 1) (point))))
|
1998-06-11 15:33:13 +00:00
|
|
|
|
((string-match "\\`\\.\\.?\\'" (file-name-nondirectory filename))
|
|
|
|
|
|
(dired-kill-line))
|
|
|
|
|
|
(t
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(vc-dired-reformat-line nil)
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(forward-line 1))))
|
|
|
|
|
|
;; ordinary file
|
|
|
|
|
|
((if cvs-dir
|
|
|
|
|
|
(and (eq (vc-file-getprop filename 'vc-backend) 'CVS)
|
|
|
|
|
|
(or (not vc-dired-terse-mode)
|
|
|
|
|
|
(not (eq (vc-cvs-status filename) 'up-to-date))))
|
|
|
|
|
|
(and (vc-backend filename)
|
|
|
|
|
|
(or (not vc-dired-terse-mode)
|
|
|
|
|
|
(vc-locking-user filename))))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(vc-dired-reformat-line (vc-dired-state-info filename))
|
|
|
|
|
|
(forward-line 1))
|
|
|
|
|
|
(t
|
|
|
|
|
|
(dired-kill-line))))
|
|
|
|
|
|
;; any other line
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(t (forward-line 1))))
|
|
|
|
|
|
(vc-dired-purge))
|
|
|
|
|
|
(message "Getting version information... done")
|
|
|
|
|
|
(save-restriction
|
|
|
|
|
|
(widen)
|
1998-06-12 11:13:37 +00:00
|
|
|
|
(cond ((eq (count-lines (point-min) (point-max)) 1)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(message "No files locked under %s" default-directory)))))
|
1998-06-11 15:33:13 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-dired-purge ()
|
|
|
|
|
|
;; Remove empty subdirs
|
|
|
|
|
|
(let (subdir)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(while (setq subdir (dired-get-subdir))
|
|
|
|
|
|
(forward-line 2)
|
|
|
|
|
|
(if (dired-get-filename nil t)
|
|
|
|
|
|
(if (not (dired-next-subdir 1 t))
|
|
|
|
|
|
(goto-char (point-max)))
|
|
|
|
|
|
(forward-line -2)
|
|
|
|
|
|
(if (not (string= (dired-current-directory) default-directory))
|
|
|
|
|
|
(dired-do-kill-lines t "")
|
1998-06-12 11:13:37 +00:00
|
|
|
|
;; We cannot remove the top level directory.
|
|
|
|
|
|
;; Just make it look a little nicer.
|
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
(kill-line)
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(if (not (dired-next-subdir 1 t))
|
|
|
|
|
|
(goto-char (point-max))))))
|
|
|
|
|
|
(goto-char (point-min))))
|
1995-09-08 20:39:17 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(defun vc-directory (dirname read-switches)
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(interactive "DDired under VC (directory): \nP")
|
1998-06-11 15:33:13 +00:00
|
|
|
|
(let ((vc-dired-switches (concat dired-listing-switches
|
|
|
|
|
|
(if vc-dired-recurse "R" ""))))
|
|
|
|
|
|
(if read-switches
|
|
|
|
|
|
(setq vc-dired-switches
|
|
|
|
|
|
(read-string "Dired listing switches: "
|
|
|
|
|
|
vc-dired-switches)))
|
1998-04-04 05:22:37 +00:00
|
|
|
|
(require 'dired)
|
|
|
|
|
|
(require 'dired-aux)
|
|
|
|
|
|
;; force a trailing slash
|
|
|
|
|
|
(if (not (eq (elt dirname (1- (length dirname))) ?/))
|
|
|
|
|
|
(setq dirname (concat dirname "/")))
|
|
|
|
|
|
(switch-to-buffer
|
|
|
|
|
|
(dired-internal-noselect (expand-file-name dirname)
|
1998-06-05 12:46:29 +00:00
|
|
|
|
(or vc-dired-switches dired-listing-switches)
|
1998-04-04 05:22:37 +00:00
|
|
|
|
'vc-dired-mode))))
|
1995-01-19 07:18:47 +00:00
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Named-configuration support for SCCS
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-add-triple (name file rev)
|
|
|
|
|
|
(save-excursion
|
1995-06-19 13:36:45 +00:00
|
|
|
|
(find-file (expand-file-name
|
|
|
|
|
|
vc-name-assoc-file
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(file-name-directory (vc-name file))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
|
(insert name "\t:\t" file "\t" rev "\n")
|
|
|
|
|
|
(basic-save-buffer)
|
|
|
|
|
|
(kill-buffer (current-buffer))
|
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-record-rename (file newname)
|
|
|
|
|
|
(save-excursion
|
1995-06-19 13:36:45 +00:00
|
|
|
|
(find-file
|
|
|
|
|
|
(expand-file-name
|
|
|
|
|
|
vc-name-assoc-file
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(file-name-directory (vc-name file))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(goto-char (point-min))
|
1993-12-23 02:51:19 +00:00
|
|
|
|
;; (replace-regexp (concat ":" (regexp-quote file) "$") (concat ":" newname))
|
|
|
|
|
|
(while (re-search-forward (concat ":" (regexp-quote file) "$") nil t)
|
|
|
|
|
|
(replace-match (concat ":" newname) nil nil))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(basic-save-buffer)
|
|
|
|
|
|
(kill-buffer (current-buffer))
|
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-lookup-triple (file name)
|
1993-03-17 13:58:48 +00:00
|
|
|
|
;; Return the numeric version corresponding to a named snapshot of file
|
|
|
|
|
|
;; If name is nil or a version number string it's just passed through
|
1994-02-18 02:51:33 +00:00
|
|
|
|
(cond ((null name) name)
|
1993-03-17 13:58:48 +00:00
|
|
|
|
((let ((firstchar (aref name 0)))
|
|
|
|
|
|
(and (>= firstchar ?0) (<= firstchar ?9)))
|
|
|
|
|
|
name)
|
|
|
|
|
|
(t
|
1995-06-16 18:11:46 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (get-buffer-create "*vc-info*"))
|
1995-06-19 13:36:45 +00:00
|
|
|
|
(vc-insert-file
|
|
|
|
|
|
(expand-file-name
|
|
|
|
|
|
vc-name-assoc-file
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(file-name-directory (vc-name file))))
|
1995-06-16 18:11:46 +00:00
|
|
|
|
(prog1
|
|
|
|
|
|
(car (vc-parse-buffer
|
|
|
|
|
|
(list (list (concat name "\t:\t" file "\t\\(.+\\)") 1))))
|
|
|
|
|
|
(kill-buffer "*vc-info*"))))
|
|
|
|
|
|
))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
;; Named-configuration entry points
|
|
|
|
|
|
|
1995-07-29 01:40:43 +00:00
|
|
|
|
(defun vc-snapshot-precondition ()
|
|
|
|
|
|
;; Scan the tree below the current directory.
|
|
|
|
|
|
;; If any files are locked, return the name of the first such file.
|
|
|
|
|
|
;; (This means, neither snapshot creation nor retrieval is allowed.)
|
|
|
|
|
|
;; If one or more of the files are currently visited, return `visited'.
|
|
|
|
|
|
;; Otherwise, return nil.
|
|
|
|
|
|
(let ((status nil))
|
|
|
|
|
|
(catch 'vc-locked-example
|
|
|
|
|
|
(vc-file-tree-walk
|
1995-09-08 20:39:17 +00:00
|
|
|
|
default-directory
|
1995-07-29 01:40:43 +00:00
|
|
|
|
(function (lambda (f)
|
|
|
|
|
|
(and (vc-registered f)
|
|
|
|
|
|
(if (vc-locking-user f) (throw 'vc-locked-example f)
|
|
|
|
|
|
(if (get-file-buffer f) (setq status 'visited)))))))
|
|
|
|
|
|
status)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-create-snapshot (name)
|
|
|
|
|
|
"Make a snapshot called NAME.
|
|
|
|
|
|
The snapshot is made from all registered files at or below the current
|
|
|
|
|
|
directory. For each file, the version level of its latest
|
|
|
|
|
|
version becomes part of the named configuration."
|
|
|
|
|
|
(interactive "sNew snapshot name: ")
|
1995-07-29 01:40:43 +00:00
|
|
|
|
(let ((result (vc-snapshot-precondition)))
|
|
|
|
|
|
(if (stringp result)
|
|
|
|
|
|
(error "File %s is locked" result)
|
1993-08-27 03:55:16 +00:00
|
|
|
|
(vc-file-tree-walk
|
1995-09-08 20:39:17 +00:00
|
|
|
|
default-directory
|
1993-08-27 03:55:16 +00:00
|
|
|
|
(function (lambda (f) (and
|
|
|
|
|
|
(vc-name f)
|
|
|
|
|
|
(vc-backend-assign-name f name)))))
|
|
|
|
|
|
)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-retrieve-snapshot (name)
|
1997-07-18 16:06:57 +00:00
|
|
|
|
"Retrieve the snapshot called NAME, or latest versions if NAME is empty.
|
|
|
|
|
|
When retrieving a snapshot, there must not be any locked files at or below
|
|
|
|
|
|
the current directory. If none are locked, all registered files are
|
|
|
|
|
|
checked out (unlocked) at their version levels in the snapshot NAME.
|
|
|
|
|
|
If NAME is the empty string, all registered files that are not currently
|
|
|
|
|
|
locked are updated to the latest versions."
|
|
|
|
|
|
(interactive "sSnapshot name to retrieve (default latest versions): ")
|
|
|
|
|
|
(let ((update (yes-or-no-p "Update any affected buffers? ")))
|
|
|
|
|
|
(if (string= name "")
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(vc-file-tree-walk
|
|
|
|
|
|
default-directory
|
|
|
|
|
|
(function (lambda (f) (and
|
|
|
|
|
|
(vc-registered f)
|
|
|
|
|
|
(not (vc-locking-user f))
|
|
|
|
|
|
(vc-error-occurred
|
|
|
|
|
|
(vc-backend-checkout f nil "")
|
|
|
|
|
|
(if update (vc-resynch-buffer f t t))))))))
|
|
|
|
|
|
(let ((result (vc-snapshot-precondition)))
|
|
|
|
|
|
(if (stringp result)
|
|
|
|
|
|
(error "File %s is locked" result)
|
|
|
|
|
|
(setq update (and (eq result 'visited) update))
|
|
|
|
|
|
(vc-file-tree-walk
|
|
|
|
|
|
default-directory
|
|
|
|
|
|
(function (lambda (f) (and
|
|
|
|
|
|
(vc-name f)
|
|
|
|
|
|
(vc-error-occurred
|
|
|
|
|
|
(vc-backend-checkout f nil name)
|
|
|
|
|
|
(if update (vc-resynch-buffer f t t)))))))
|
|
|
|
|
|
)))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
;; Miscellaneous other entry points
|
|
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-print-log ()
|
|
|
|
|
|
"List the change log of the current buffer in a window."
|
|
|
|
|
|
(interactive)
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
|
|
|
|
|
(let ((file buffer-file-name))
|
|
|
|
|
|
(vc-backend-print-log file)
|
|
|
|
|
|
(pop-to-buffer (get-buffer-create "*vc*"))
|
|
|
|
|
|
(setq default-directory (file-name-directory file))
|
|
|
|
|
|
(goto-char (point-max)) (forward-line -1)
|
|
|
|
|
|
(while (looking-at "=*\n")
|
|
|
|
|
|
(delete-char (- (match-end 0) (match-beginning 0)))
|
|
|
|
|
|
(forward-line -1))
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(if (looking-at "[\b\t\n\v\f\r ]+")
|
|
|
|
|
|
(delete-char (- (match-end 0) (match-beginning 0))))
|
|
|
|
|
|
(shrink-window-if-larger-than-buffer)
|
|
|
|
|
|
;; move point to the log entry for the current version
|
|
|
|
|
|
(and (not (eq (vc-backend file) 'SCCS))
|
|
|
|
|
|
(re-search-forward
|
|
|
|
|
|
;; also match some context, for safety
|
|
|
|
|
|
(concat "----\nrevision " (vc-workfile-version file)
|
|
|
|
|
|
"\\(\tlocked by:.*\n\\|\n\\)date: ") nil t)
|
|
|
|
|
|
;; set the display window so that
|
|
|
|
|
|
;; the whole log entry is displayed
|
|
|
|
|
|
(let (start end lines)
|
|
|
|
|
|
(beginning-of-line) (forward-line -1) (setq start (point))
|
|
|
|
|
|
(if (not (re-search-forward "^----*\nrevision" nil t))
|
|
|
|
|
|
(setq end (point-max))
|
|
|
|
|
|
(beginning-of-line) (forward-line -1) (setq end (point)))
|
|
|
|
|
|
(setq lines (count-lines start end))
|
|
|
|
|
|
(cond
|
|
|
|
|
|
;; if the global information and this log entry fit
|
|
|
|
|
|
;; into the window, display from the beginning
|
|
|
|
|
|
((< (count-lines (point-min) end) (window-height))
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(recenter 0)
|
|
|
|
|
|
(goto-char start))
|
|
|
|
|
|
;; if the whole entry fits into the window,
|
|
|
|
|
|
;; display it centered
|
|
|
|
|
|
((< (1+ lines) (window-height))
|
|
|
|
|
|
(goto-char start)
|
|
|
|
|
|
(recenter (1- (- (/ (window-height) 2) (/ lines 2)))))
|
|
|
|
|
|
;; otherwise (the entry is too large for the window),
|
|
|
|
|
|
;; display from the start
|
|
|
|
|
|
(t
|
|
|
|
|
|
(goto-char start)
|
|
|
|
|
|
(recenter 0)))))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-revert-buffer ()
|
1998-03-31 17:19:32 +00:00
|
|
|
|
"Revert the current buffer's file back to the version it was based on.
|
1992-08-08 22:58:39 +00:00
|
|
|
|
This asks for confirmation if the buffer contents are not identical
|
1998-03-31 17:19:32 +00:00
|
|
|
|
to that version. Note that for RCS and CVS, this function does not
|
|
|
|
|
|
automatically pick up newer changes found in the master file;
|
|
|
|
|
|
use C-u \\[vc-next-action] RET to do so."
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(interactive)
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(let ((file buffer-file-name)
|
1995-11-13 20:24:46 +00:00
|
|
|
|
;; This operation should always ask for confirmation.
|
|
|
|
|
|
(vc-suppress-confirm nil)
|
1993-12-24 23:07:23 +00:00
|
|
|
|
(obuf (current-buffer)) (changed (vc-diff nil t)))
|
1998-04-01 12:26:43 +00:00
|
|
|
|
(if changed
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(if (not (yes-or-no-p "Discard changes? "))
|
|
|
|
|
|
(error "Revert cancelled"))
|
1995-08-08 21:18:36 +00:00
|
|
|
|
(if (and (window-dedicated-p (selected-window))
|
|
|
|
|
|
(one-window-p t 'selected-frame))
|
|
|
|
|
|
(make-frame-invisible (selected-frame))
|
1998-04-01 12:26:43 +00:00
|
|
|
|
(delete-window))))
|
|
|
|
|
|
(set-buffer obuf)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(vc-backend-revert file)
|
1998-04-01 12:26:43 +00:00
|
|
|
|
(vc-resynch-window file t t)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-cancel-version (norevert)
|
1993-05-12 21:30:35 +00:00
|
|
|
|
"Get rid of most recently checked in version of this file.
|
|
|
|
|
|
A prefix argument means do not revert the buffer afterwards."
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(interactive "P")
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(cond
|
1996-06-05 17:57:26 +00:00
|
|
|
|
((eq (vc-backend (buffer-file-name)) 'CVS)
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(error "Unchecking files under CVS is dangerous and not supported in VC"))
|
|
|
|
|
|
((vc-locking-user (buffer-file-name))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "This version is locked; use vc-revert-buffer to discard changes"))
|
1995-08-17 12:40:03 +00:00
|
|
|
|
((not (vc-latest-on-branch-p (buffer-file-name)))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "This is not the latest version--VC cannot cancel it")))
|
1996-01-04 16:00:05 +00:00
|
|
|
|
(let* ((target (vc-workfile-version (buffer-file-name)))
|
|
|
|
|
|
(recent (if (vc-trunk-p target) "" (vc-branch-part target)))
|
|
|
|
|
|
(config (current-window-configuration)) done)
|
|
|
|
|
|
(if (null (yes-or-no-p (format "Remove version %s from master? " target)))
|
1993-03-17 13:58:48 +00:00
|
|
|
|
nil
|
1995-08-17 12:40:03 +00:00
|
|
|
|
(setq norevert (or norevert (not
|
|
|
|
|
|
(yes-or-no-p "Revert buffer to most recent remaining version? "))))
|
1993-03-17 13:58:48 +00:00
|
|
|
|
(vc-backend-uncheck (buffer-file-name) target)
|
1996-01-04 16:00:05 +00:00
|
|
|
|
;; Check out the most recent remaining version. If it fails, because
|
|
|
|
|
|
;; the whole branch got deleted, do a double-take and check out the
|
|
|
|
|
|
;; version where the branch started.
|
|
|
|
|
|
(while (not done)
|
|
|
|
|
|
(condition-case err
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(if norevert
|
|
|
|
|
|
;; Check out locked, but only to disc, and keep
|
|
|
|
|
|
;; modifications in the buffer.
|
|
|
|
|
|
(vc-backend-checkout (buffer-file-name) t recent)
|
|
|
|
|
|
;; Check out unlocked, and revert buffer.
|
|
|
|
|
|
(vc-checkout (buffer-file-name) nil recent))
|
|
|
|
|
|
(setq done t))
|
1996-01-10 15:24:03 +00:00
|
|
|
|
;; If the checkout fails, vc-do-command signals an error.
|
|
|
|
|
|
;; We catch this error, check the reason, correct the
|
|
|
|
|
|
;; version number, and try a second time.
|
1996-01-04 16:00:05 +00:00
|
|
|
|
(error (set-buffer "*vc*")
|
|
|
|
|
|
(goto-char (point-min))
|
1996-01-10 15:24:03 +00:00
|
|
|
|
(if (search-forward "no side branches present for" nil t)
|
1996-01-04 16:00:05 +00:00
|
|
|
|
(progn (setq recent (vc-branch-part recent))
|
1996-01-10 15:24:03 +00:00
|
|
|
|
;; vc-do-command popped up a window with
|
|
|
|
|
|
;; the error message. Get rid of it, by
|
|
|
|
|
|
;; restoring the old window configuration.
|
1996-01-04 16:00:05 +00:00
|
|
|
|
(set-window-configuration config))
|
|
|
|
|
|
;; No, it was some other error: re-signal it.
|
|
|
|
|
|
(signal (car err) (cdr err))))))
|
|
|
|
|
|
;; If norevert, clear version headers and mark the buffer modified.
|
|
|
|
|
|
(if norevert
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(set-visited-file-name (buffer-file-name))
|
|
|
|
|
|
(if (not vc-make-backup-files)
|
|
|
|
|
|
;; inhibit backup for this buffer
|
|
|
|
|
|
(progn (make-local-variable 'backup-inhibited)
|
|
|
|
|
|
(setq backup-inhibited t)))
|
|
|
|
|
|
(if (eq (vc-backend (buffer-file-name)) 'RCS)
|
|
|
|
|
|
(progn (setq buffer-read-only nil)
|
|
|
|
|
|
(vc-clear-headers)))
|
|
|
|
|
|
(vc-mode-line (buffer-file-name))))
|
|
|
|
|
|
(message "Version %s has been removed from the master" target)
|
1995-08-17 12:40:03 +00:00
|
|
|
|
)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1994-09-24 00:58:07 +00:00
|
|
|
|
;;;###autoload
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-rename-file (old new)
|
1993-05-12 21:30:35 +00:00
|
|
|
|
"Rename file OLD to NEW, and rename its master file likewise."
|
|
|
|
|
|
(interactive "fVC rename file: \nFRename to: ")
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
;; There are several ways of renaming files under CVS 1.3, but they all
|
|
|
|
|
|
;; have serious disadvantages. See the FAQ (available from think.com in
|
|
|
|
|
|
;; pub/cvs/). I'd rather send the user an error, than do something he might
|
|
|
|
|
|
;; consider to be wrong. When the famous, long-awaited rename database is
|
|
|
|
|
|
;; implemented things might change for the better. This is unlikely to occur
|
|
|
|
|
|
;; until CVS 2.0 is released. --ceder 1994-01-23 21:27:51
|
(vc-next-action-on-file): Add missing let-binding.
(vc-default-backend, vc-keep-workfiles, vc-consult-headers):
(vc-mistrust-permissions, vc-path): Vars moved to vc-hooks.el.
(vc-match-substring, vc-lock-file, vc-parse-buffer, vc-master-info):
(vc-log-info, vc-consult-rcs-headers, vc-fetch-properties):
(vc-backend-subdirectory-name, vc-locking-user, vc-true-locking-user):
(vc-latest-version, vc-your-latest-version, vc-branch-version):
(vc-workfile-version): Functions moved to vc-hooks.el.
(vc-trunk-p, vc-minor-revision, vc-branch-part): Functions moved
here from vc-hooks.el.
1995-04-26 21:47:35 +00:00
|
|
|
|
(if (eq (vc-backend old) 'CVS)
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "Renaming files under CVS is dangerous and not supported in VC"))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(let ((oldbuf (get-file-buffer old)))
|
1993-11-12 22:31:12 +00:00
|
|
|
|
(if (and oldbuf (buffer-modified-p oldbuf))
|
1993-06-17 05:08:23 +00:00
|
|
|
|
(error "Please save files before moving them"))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(if (get-file-buffer new)
|
1993-06-17 05:08:23 +00:00
|
|
|
|
(error "Already editing new file name"))
|
1993-11-12 22:31:12 +00:00
|
|
|
|
(if (file-exists-p new)
|
|
|
|
|
|
(error "New file already exists"))
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(let ((oldmaster (vc-name old)) newmaster)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(if oldmaster
|
1993-11-12 22:31:12 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(if (vc-locking-user old)
|
|
|
|
|
|
(error "Please check in files before moving them"))
|
|
|
|
|
|
(if (or (file-symlink-p oldmaster)
|
|
|
|
|
|
;; This had FILE, I changed it to OLD. -- rms.
|
|
|
|
|
|
(file-symlink-p (vc-backend-subdirectory-name old)))
|
|
|
|
|
|
(error "This is not a safe thing to do in the presence of symbolic links"))
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(setq newmaster
|
|
|
|
|
|
(let ((backend (vc-backend old))
|
|
|
|
|
|
(newdir (or (file-name-directory new) ""))
|
|
|
|
|
|
(newbase (file-name-nondirectory new)))
|
|
|
|
|
|
(catch 'found
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(function
|
|
|
|
|
|
(lambda (s)
|
|
|
|
|
|
(if (eq backend (cdr s))
|
|
|
|
|
|
(let* ((newmaster (format (car s) newdir newbase))
|
|
|
|
|
|
(newmasterdir (file-name-directory newmaster)))
|
|
|
|
|
|
(if (or (not newmasterdir)
|
|
|
|
|
|
(file-directory-p newmasterdir))
|
|
|
|
|
|
(throw 'found newmaster))))))
|
|
|
|
|
|
vc-master-templates)
|
|
|
|
|
|
(error "New file lacks a version control directory"))))
|
|
|
|
|
|
;; Handle the SCCS PROJECTDIR feature. It is odd that this
|
|
|
|
|
|
;; is a special case, but a more elegant solution would require
|
|
|
|
|
|
;; significant changes in other parts of VC.
|
|
|
|
|
|
(if (eq (vc-backend old) 'SCCS)
|
|
|
|
|
|
(let ((project-dir (vc-sccs-project-dir)))
|
|
|
|
|
|
(if project-dir
|
|
|
|
|
|
(setq newmaster
|
|
|
|
|
|
(concat project-dir
|
|
|
|
|
|
(file-name-nondirectory newmaster))))))
|
|
|
|
|
|
(rename-file oldmaster newmaster)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(if (or (not oldmaster) (file-exists-p old))
|
|
|
|
|
|
(rename-file old new)))
|
|
|
|
|
|
; ?? Renaming a file might change its contents due to keyword expansion.
|
|
|
|
|
|
; We should really check out a new copy if the old copy was precisely equal
|
|
|
|
|
|
; to some checked in version. However, testing for this is tricky....
|
|
|
|
|
|
(if oldbuf
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer oldbuf)
|
1996-05-13 01:31:28 +00:00
|
|
|
|
(let ((buffer-read-only buffer-read-only))
|
|
|
|
|
|
(set-visited-file-name new))
|
|
|
|
|
|
(vc-backend new)
|
|
|
|
|
|
(vc-mode-line new)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(set-buffer-modified-p nil))))
|
1992-09-28 13:01:53 +00:00
|
|
|
|
;; This had FILE, I changed it to OLD. -- rms.
|
|
|
|
|
|
(vc-backend-dispatch old
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(vc-record-rename old new) ;SCCS
|
|
|
|
|
|
nil ;RCS
|
|
|
|
|
|
nil ;CVS
|
|
|
|
|
|
)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
|
1992-08-04 07:27:12 +00:00
|
|
|
|
;;;###autoload
|
1992-09-27 01:31:15 +00:00
|
|
|
|
(defun vc-update-change-log (&rest args)
|
1996-08-29 21:22:07 +00:00
|
|
|
|
"Find change log file and add entries from recent RCS/CVS logs.
|
1996-08-30 18:42:29 +00:00
|
|
|
|
Normally, find log entries for all registered files in the default
|
|
|
|
|
|
directory using `rcs2log', which finds CVS logs preferentially.
|
1992-09-27 01:31:15 +00:00
|
|
|
|
The mark is left at the end of the text prepended to the change log.
|
1996-08-30 18:42:29 +00:00
|
|
|
|
|
1992-09-27 01:31:15 +00:00
|
|
|
|
With prefix arg of C-u, only find log entries for the current buffer's file.
|
1996-08-30 18:42:29 +00:00
|
|
|
|
|
|
|
|
|
|
With any numeric prefix arg, find log entries for all currently visited
|
|
|
|
|
|
files that are under version control. This puts all the entries in the
|
|
|
|
|
|
log for the default directory, which may not be appropriate.
|
|
|
|
|
|
|
1996-08-29 21:22:07 +00:00
|
|
|
|
From a program, any arguments are assumed to be filenames and are
|
|
|
|
|
|
passed to the `rcs2log' script after massaging to be relative to the
|
|
|
|
|
|
default directory."
|
1992-09-27 01:51:04 +00:00
|
|
|
|
(interactive
|
|
|
|
|
|
(cond ((consp current-prefix-arg) ;C-u
|
|
|
|
|
|
(list buffer-file-name))
|
|
|
|
|
|
(current-prefix-arg ;Numeric argument.
|
|
|
|
|
|
(let ((files nil)
|
|
|
|
|
|
(buffers (buffer-list))
|
|
|
|
|
|
file)
|
|
|
|
|
|
(while buffers
|
|
|
|
|
|
(setq file (buffer-file-name (car buffers)))
|
(vc-next-action-on-file): Add missing let-binding.
(vc-default-backend, vc-keep-workfiles, vc-consult-headers):
(vc-mistrust-permissions, vc-path): Vars moved to vc-hooks.el.
(vc-match-substring, vc-lock-file, vc-parse-buffer, vc-master-info):
(vc-log-info, vc-consult-rcs-headers, vc-fetch-properties):
(vc-backend-subdirectory-name, vc-locking-user, vc-true-locking-user):
(vc-latest-version, vc-your-latest-version, vc-branch-version):
(vc-workfile-version): Functions moved to vc-hooks.el.
(vc-trunk-p, vc-minor-revision, vc-branch-part): Functions moved
here from vc-hooks.el.
1995-04-26 21:47:35 +00:00
|
|
|
|
(and file (vc-backend file)
|
1993-06-30 21:35:59 +00:00
|
|
|
|
(setq files (cons file files)))
|
1992-09-27 01:51:04 +00:00
|
|
|
|
(setq buffers (cdr buffers)))
|
1993-06-30 21:35:59 +00:00
|
|
|
|
files))
|
|
|
|
|
|
(t
|
1996-08-29 21:22:07 +00:00
|
|
|
|
;; `rcs2log' will find the relevant RCS or CVS files
|
|
|
|
|
|
;; relative to the curent directory if none supplied.
|
|
|
|
|
|
nil)))
|
1996-01-08 22:24:05 +00:00
|
|
|
|
(let ((odefault default-directory)
|
1997-04-12 03:14:16 +00:00
|
|
|
|
(changelog (find-change-log))
|
|
|
|
|
|
;; Presumably not portable to non-Unixy systems, along with rcs2log:
|
|
|
|
|
|
(tempfile (make-temp-name
|
1998-05-16 17:53:32 +00:00
|
|
|
|
(expand-file-name "vc" temporary-file-directory)))
|
1996-03-22 13:25:21 +00:00
|
|
|
|
(full-name (or add-log-full-name
|
1996-12-26 12:07:05 +00:00
|
|
|
|
(user-full-name)
|
|
|
|
|
|
(user-login-name)
|
|
|
|
|
|
(format "uid%d" (number-to-string (user-uid)))))
|
1996-03-22 13:25:21 +00:00
|
|
|
|
(mailing-address (or add-log-mailing-address
|
|
|
|
|
|
user-mail-address)))
|
1997-04-12 03:14:16 +00:00
|
|
|
|
(find-file-other-window changelog)
|
1993-06-28 00:56:54 +00:00
|
|
|
|
(barf-if-buffer-read-only)
|
|
|
|
|
|
(vc-buffer-sync)
|
|
|
|
|
|
(undo-boundary)
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(push-mark)
|
|
|
|
|
|
(message "Computing change log entries...")
|
1993-06-30 21:35:59 +00:00
|
|
|
|
(message "Computing change log entries... %s"
|
1997-04-12 03:14:16 +00:00
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(cd odefault)
|
|
|
|
|
|
(if (eq 0 (apply 'call-process "rcs2log" nil
|
|
|
|
|
|
(list t tempfile) nil
|
|
|
|
|
|
"-c" changelog
|
|
|
|
|
|
"-u" (concat (vc-user-login-name)
|
|
|
|
|
|
"\t" full-name
|
|
|
|
|
|
"\t" mailing-address)
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(function
|
|
|
|
|
|
(lambda (f)
|
|
|
|
|
|
(file-relative-name
|
|
|
|
|
|
(if (file-name-absolute-p f)
|
|
|
|
|
|
f
|
|
|
|
|
|
(concat odefault f)))))
|
|
|
|
|
|
args)))
|
|
|
|
|
|
"done"
|
|
|
|
|
|
(pop-to-buffer
|
|
|
|
|
|
(set-buffer (get-buffer-create "*vc*")))
|
|
|
|
|
|
(erase-buffer)
|
|
|
|
|
|
(insert-file tempfile)
|
|
|
|
|
|
"failed"))
|
|
|
|
|
|
(cd (file-name-directory changelog))
|
|
|
|
|
|
(delete-file tempfile)))))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
|
|
|
|
|
|
;; vc-annotate functionality (CVS only).
|
|
|
|
|
|
(defvar vc-annotate-mode nil
|
|
|
|
|
|
"Variable indicating if VC-Annotate mode is active.")
|
|
|
|
|
|
|
1997-06-14 17:29:10 +00:00
|
|
|
|
(defvar vc-annotate-mode-map nil
|
1997-06-09 06:01:12 +00:00
|
|
|
|
"Local keymap used for VC-Annotate mode.")
|
|
|
|
|
|
|
1997-06-14 17:29:10 +00:00
|
|
|
|
(defvar vc-annotate-mode-menu nil
|
|
|
|
|
|
"Local keymap used for VC-Annotate mode's menu bar menu.")
|
|
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
;; Syntax Table
|
|
|
|
|
|
(defvar vc-annotate-mode-syntax-table nil
|
|
|
|
|
|
"Syntax table used in VC-Annotate mode buffers.")
|
|
|
|
|
|
|
1997-06-14 17:29:10 +00:00
|
|
|
|
;; Declare globally instead of additional parameter to
|
|
|
|
|
|
;; temp-buffer-show-function (not possible to pass more than one
|
|
|
|
|
|
;; parameter).
|
|
|
|
|
|
(defvar vc-annotate-ratio nil)
|
|
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(defun vc-annotate-mode-variables ()
|
|
|
|
|
|
(if (not vc-annotate-mode-syntax-table)
|
|
|
|
|
|
(progn (setq vc-annotate-mode-syntax-table (make-syntax-table))
|
|
|
|
|
|
(set-syntax-table vc-annotate-mode-syntax-table)))
|
|
|
|
|
|
(if (not vc-annotate-mode-map)
|
1997-06-14 17:29:10 +00:00
|
|
|
|
(setq vc-annotate-mode-map (make-sparse-keymap)))
|
|
|
|
|
|
(setq vc-annotate-mode-menu (make-sparse-keymap "Annotate"))
|
|
|
|
|
|
(define-key vc-annotate-mode-map [menu-bar]
|
|
|
|
|
|
(make-sparse-keymap "VC-Annotate"))
|
|
|
|
|
|
(define-key vc-annotate-mode-map [menu-bar vc-annotate-mode]
|
|
|
|
|
|
(cons "VC-Annotate" vc-annotate-mode-menu)))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-annotate-mode ()
|
|
|
|
|
|
"Major mode for buffers displaying output from the CVS `annotate' command.
|
|
|
|
|
|
|
|
|
|
|
|
You can use the mode-specific menu to alter the time-span of the used
|
|
|
|
|
|
colors. See variable `vc-annotate-menu-elements' for customizing the
|
|
|
|
|
|
menu items."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(kill-all-local-variables) ; Recommended by RMS.
|
|
|
|
|
|
(vc-annotate-mode-variables) ; This defines various variables.
|
|
|
|
|
|
(use-local-map vc-annotate-mode-map) ; This provides the local keymap.
|
|
|
|
|
|
(set-syntax-table vc-annotate-mode-syntax-table)
|
|
|
|
|
|
(setq major-mode 'vc-annotate-mode) ; This is how `describe-mode'
|
|
|
|
|
|
; finds out what to describe.
|
|
|
|
|
|
(setq mode-name "Annotate") ; This goes into the mode line.
|
|
|
|
|
|
(run-hooks 'vc-annotate-mode-hook)
|
|
|
|
|
|
(vc-annotate-add-menu))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-annotate-display-default (&optional event)
|
|
|
|
|
|
"Use the default color spectrum for VC Annotate mode."
|
|
|
|
|
|
(interactive)
|
1997-06-14 17:29:10 +00:00
|
|
|
|
(message "Redisplaying annotation...")
|
|
|
|
|
|
(vc-annotate-display (get-buffer (buffer-name)))
|
|
|
|
|
|
(message "Redisplaying annotation...done"))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-annotate-add-menu ()
|
|
|
|
|
|
"Adds the menu 'Annotate' to the menu bar in VC-Annotate mode."
|
|
|
|
|
|
(define-key vc-annotate-mode-menu [default]
|
|
|
|
|
|
'("Default" . vc-annotate-display-default))
|
|
|
|
|
|
(let ((menu-elements vc-annotate-menu-elements))
|
|
|
|
|
|
(while menu-elements
|
|
|
|
|
|
(let* ((element (car menu-elements))
|
|
|
|
|
|
(days (round (* element
|
|
|
|
|
|
(vc-annotate-car-last-cons vc-annotate-color-map)
|
|
|
|
|
|
0.7585))))
|
|
|
|
|
|
(setq menu-elements (cdr menu-elements))
|
|
|
|
|
|
(define-key vc-annotate-mode-menu
|
|
|
|
|
|
(vector days)
|
|
|
|
|
|
(cons (format "Span %d days"
|
|
|
|
|
|
days)
|
|
|
|
|
|
`(lambda ()
|
|
|
|
|
|
,(format "Use colors spanning %d days" days)
|
1997-06-14 17:29:10 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
|
(message "Redisplaying annotation...")
|
|
|
|
|
|
(vc-annotate-display
|
|
|
|
|
|
(get-buffer (buffer-name))
|
|
|
|
|
|
(vc-annotate-time-span vc-annotate-color-map ,element))
|
|
|
|
|
|
(message "Redisplaying annotation...done"))))))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun vc-annotate (ratio)
|
|
|
|
|
|
"Display the result of the CVS `annotate' command using colors.
|
|
|
|
|
|
New lines are displayed in red, old in blue.
|
|
|
|
|
|
A prefix argument specifies a factor for stretching the time scale.
|
|
|
|
|
|
|
|
|
|
|
|
`vc-annotate-menu-elements' customizes the menu elements of the
|
|
|
|
|
|
mode-specific menu. `vc-annotate-color-map' and
|
|
|
|
|
|
`vc-annotate-very-old-color' defines the mapping of time to
|
|
|
|
|
|
colors. `vc-annotate-background' specifies the background color."
|
|
|
|
|
|
(interactive "p")
|
1998-04-05 18:43:15 +00:00
|
|
|
|
(vc-ensure-vc-buffer)
|
|
|
|
|
|
(if (not (eq (vc-backend (buffer-file-name)) 'CVS))
|
|
|
|
|
|
(error "Sorry, vc-annotate is only implemented for CVS"))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(message "Annotating...")
|
|
|
|
|
|
(let ((temp-buffer-name (concat "*cvs annotate " (buffer-name) "*"))
|
|
|
|
|
|
(temp-buffer-show-function 'vc-annotate-display)
|
|
|
|
|
|
(vc-annotate-ratio ratio))
|
|
|
|
|
|
(with-output-to-temp-buffer temp-buffer-name
|
|
|
|
|
|
(call-process "cvs" nil (get-buffer temp-buffer-name) nil
|
|
|
|
|
|
"annotate" (file-name-nondirectory (buffer-file-name)))))
|
|
|
|
|
|
(message "Annotating... done"))
|
|
|
|
|
|
|
1998-01-22 09:04:36 +00:00
|
|
|
|
(defun vc-annotate-car-last-cons (a-list)
|
|
|
|
|
|
"Return car of last cons in association list A-LIST."
|
|
|
|
|
|
(if (not (eq nil (cdr a-list)))
|
|
|
|
|
|
(vc-annotate-car-last-cons (cdr a-list))
|
|
|
|
|
|
(car (car a-list))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-annotate-time-span (a-list span &optional quantize)
|
|
|
|
|
|
"Return an association list with factor SPAN applied to the time-span
|
|
|
|
|
|
of association list A-LIST. Optionaly quantize to the factor of
|
|
|
|
|
|
QUANTIZE."
|
1997-06-09 06:01:12 +00:00
|
|
|
|
;; Apply span to each car of every cons
|
1998-01-22 09:04:36 +00:00
|
|
|
|
(if (not (eq nil a-list))
|
|
|
|
|
|
(append (list (cons (* (car (car a-list)) span)
|
|
|
|
|
|
(cdr (car a-list))))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(vc-annotate-time-span (nthcdr (cond (quantize) ; optional
|
|
|
|
|
|
(1)) ; Default to cdr
|
1998-01-22 09:04:36 +00:00
|
|
|
|
a-list) span quantize))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-annotate-compcar (threshold a-list)
|
|
|
|
|
|
"Test successive cons cells of association list A-LIST against
|
|
|
|
|
|
THRESHOLD. Return the first cons cell which car is not less than
|
|
|
|
|
|
THRESHOLD, nil otherwise"
|
|
|
|
|
|
(let ((i 1)
|
|
|
|
|
|
(tmp-cons (car a-list)))
|
|
|
|
|
|
(while (and tmp-cons (< (car tmp-cons) threshold))
|
|
|
|
|
|
(setq tmp-cons (car (nthcdr i a-list)))
|
|
|
|
|
|
(setq i (+ i 1)))
|
|
|
|
|
|
tmp-cons)) ; Return the appropriate value
|
|
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-annotate-display (buffer &optional color-map)
|
|
|
|
|
|
"Do the VC-Annotate display in BUFFER using COLOR-MAP."
|
|
|
|
|
|
|
1997-06-14 17:29:10 +00:00
|
|
|
|
;; Handle the case of the global variable vc-annotate-ratio being
|
|
|
|
|
|
;; set. This variable is used to pass information from function
|
|
|
|
|
|
;; vc-annotate since it is not possible to use another parameter
|
|
|
|
|
|
;; (see temp-buffer-show-function).
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(if (and (not color-map) vc-annotate-ratio)
|
1997-06-14 17:29:10 +00:00
|
|
|
|
;; This will only be true if called from vc-annotate with ratio
|
|
|
|
|
|
;; being non-nil.
|
|
|
|
|
|
(setq color-map (vc-annotate-time-span vc-annotate-color-map
|
|
|
|
|
|
vc-annotate-ratio)))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
|
|
|
|
|
|
;; We need a list of months and their corresponding numbers.
|
|
|
|
|
|
(let* ((local-month-numbers
|
|
|
|
|
|
'(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4)
|
|
|
|
|
|
("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8)
|
1998-01-22 09:04:36 +00:00
|
|
|
|
("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12))))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(set-buffer buffer)
|
|
|
|
|
|
(display-buffer buffer)
|
|
|
|
|
|
(if (not vc-annotate-mode) ; Turn on vc-annotate-mode if not done
|
|
|
|
|
|
(vc-annotate-mode))
|
|
|
|
|
|
(goto-char (point-min)) ; Position at the top of the buffer.
|
1998-01-22 09:04:36 +00:00
|
|
|
|
(while (re-search-forward
|
|
|
|
|
|
"^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): "
|
|
|
|
|
|
;; "^[0-9]+\\(\.[0-9]+\\)*\\s-+(\\sw+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): "
|
1997-06-09 06:01:12 +00:00
|
|
|
|
nil t)
|
|
|
|
|
|
|
|
|
|
|
|
(let* (;; Unfortunately, order is important. match-string will
|
|
|
|
|
|
;; be corrupted by extent functions in XEmacs. Access
|
|
|
|
|
|
;; string-matches first.
|
1998-01-22 09:04:36 +00:00
|
|
|
|
(day (string-to-number (match-string 1)))
|
|
|
|
|
|
(month (cdr (assoc (match-string 2) local-month-numbers)))
|
|
|
|
|
|
(year-tmp (string-to-number (match-string 3)))
|
1997-06-09 06:01:12 +00:00
|
|
|
|
(year (+ (if (> 100 year-tmp) 1900 0) year-tmp)) ; Possible millenium problem
|
|
|
|
|
|
(high (- (car (current-time))
|
|
|
|
|
|
(car (encode-time 0 0 0 day month year))))
|
|
|
|
|
|
(color (cond ((vc-annotate-compcar high (cond (color-map)
|
|
|
|
|
|
(vc-annotate-color-map))))
|
|
|
|
|
|
((cons nil vc-annotate-very-old-color))))
|
|
|
|
|
|
;; substring from index 1 to remove any leading `#' in the name
|
|
|
|
|
|
(face-name (concat "vc-annotate-face-" (substring (cdr color) 1)))
|
|
|
|
|
|
;; Make the face if not done.
|
|
|
|
|
|
(face (cond ((intern-soft face-name))
|
1998-01-22 09:04:36 +00:00
|
|
|
|
((let ((tmp-face (make-face (intern face-name))))
|
|
|
|
|
|
(set-face-foreground tmp-face (cdr color))
|
|
|
|
|
|
(if vc-annotate-background
|
|
|
|
|
|
(set-face-background tmp-face vc-annotate-background))
|
|
|
|
|
|
tmp-face)))) ; Return the face
|
|
|
|
|
|
(point (point)))
|
|
|
|
|
|
|
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
|
(overlay-put (make-overlay point (point) nil) 'face face)))))
|
|
|
|
|
|
|
1997-06-09 06:01:12 +00:00
|
|
|
|
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;; Collect back-end-dependent stuff here
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-admin (file &optional rev comment)
|
|
|
|
|
|
;; Register a file into the version-control system
|
|
|
|
|
|
;; Automatically retrieves a read-only version of the file with
|
|
|
|
|
|
;; keywords expanded if vc-keep-workfiles is non-nil, otherwise
|
|
|
|
|
|
;; it deletes the workfile.
|
|
|
|
|
|
(vc-file-clearprops file)
|
|
|
|
|
|
(or vc-default-back-end
|
|
|
|
|
|
(setq vc-default-back-end (if (vc-find-binary "rcs") 'RCS 'SCCS)))
|
|
|
|
|
|
(message "Registering %s..." file)
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(let* ((switches
|
|
|
|
|
|
(if (stringp vc-register-switches)
|
|
|
|
|
|
(list vc-register-switches)
|
|
|
|
|
|
vc-register-switches))
|
|
|
|
|
|
(project-dir)
|
|
|
|
|
|
(backend
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((file-exists-p (vc-backend-subdirectory-name)) vc-default-back-end)
|
|
|
|
|
|
((file-exists-p "RCS") 'RCS)
|
|
|
|
|
|
((file-exists-p "CVS") 'CVS)
|
|
|
|
|
|
((file-exists-p "SCCS") 'SCCS)
|
|
|
|
|
|
((setq project-dir (vc-sccs-project-dir)) 'SCCS)
|
|
|
|
|
|
(t vc-default-back-end))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(cond ((eq backend 'SCCS)
|
1998-03-20 15:40:24 +00:00
|
|
|
|
(let ((vc-name
|
|
|
|
|
|
(if project-dir (concat project-dir
|
|
|
|
|
|
"s." (file-name-nondirectory file))
|
|
|
|
|
|
(format
|
|
|
|
|
|
(car (rassq 'SCCS vc-master-templates))
|
|
|
|
|
|
(or (file-name-directory file) "")
|
|
|
|
|
|
(file-name-nondirectory file)))))
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "admin" nil nil ;; SCCS
|
|
|
|
|
|
(and rev (concat "-r" rev))
|
|
|
|
|
|
"-fb"
|
|
|
|
|
|
(concat "-i" file)
|
|
|
|
|
|
(and comment (concat "-y" comment))
|
|
|
|
|
|
vc-name
|
|
|
|
|
|
switches))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(delete-file file)
|
|
|
|
|
|
(if vc-keep-workfiles
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "get" file 'MASTER)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
((eq backend 'RCS)
|
1996-09-01 18:33:12 +00:00
|
|
|
|
(apply 'vc-do-command nil 0 "ci" file 'WORKFILE ;; RCS
|
|
|
|
|
|
;; if available, use the secure registering option
|
|
|
|
|
|
(and (vc-backend-release-p 'RCS "5.6.4") "-i")
|
|
|
|
|
|
(concat (if vc-keep-workfiles "-u" "-r") rev)
|
|
|
|
|
|
(and comment (concat "-t-" comment))
|
|
|
|
|
|
switches))
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
((eq backend 'CVS)
|
1996-09-01 18:33:12 +00:00
|
|
|
|
(apply 'vc-do-command nil 0 "cvs" file 'WORKFILE ;; CVS
|
|
|
|
|
|
"add"
|
|
|
|
|
|
(and comment (string-match "[^\t\n ]" comment)
|
|
|
|
|
|
(concat "-m" comment))
|
|
|
|
|
|
switches)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)))
|
|
|
|
|
|
(message "Registering %s...done" file)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
1993-09-15 23:19:13 +00:00
|
|
|
|
(defun vc-backend-checkout (file &optional writable rev workfile)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Retrieve a copy of a saved version into a workfile
|
1995-07-29 01:40:43 +00:00
|
|
|
|
(let ((filename (or workfile file))
|
|
|
|
|
|
(file-buffer (get-file-buffer file))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
switches)
|
1993-09-15 23:19:13 +00:00
|
|
|
|
(message "Checking out %s..." filename)
|
1994-11-22 12:23:40 +00:00
|
|
|
|
(save-excursion
|
1995-12-25 18:46:17 +00:00
|
|
|
|
;; Change buffers to get local value of vc-checkout-switches.
|
1995-07-29 01:40:43 +00:00
|
|
|
|
(if file-buffer (set-buffer file-buffer))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(setq switches (if (stringp vc-checkout-switches)
|
|
|
|
|
|
(list vc-checkout-switches)
|
|
|
|
|
|
vc-checkout-switches))
|
1996-01-24 23:32:49 +00:00
|
|
|
|
;; Save this buffer's default-directory
|
|
|
|
|
|
;; and use save-excursion to make sure it is restored
|
|
|
|
|
|
;; in the same buffer it was saved in.
|
|
|
|
|
|
(let ((default-directory default-directory))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
;; Adjust the default-directory so that the check-out creates
|
|
|
|
|
|
;; the file in the right place.
|
|
|
|
|
|
(setq default-directory (file-name-directory filename))
|
|
|
|
|
|
(vc-backend-dispatch file
|
|
|
|
|
|
(progn ;; SCCS
|
|
|
|
|
|
(and rev (string= rev "") (setq rev nil))
|
|
|
|
|
|
(if workfile
|
|
|
|
|
|
;; Some SCCS implementations allow checking out directly to a
|
|
|
|
|
|
;; file using the -G option, but then some don't so use the
|
|
|
|
|
|
;; least common denominator approach and use the -p option
|
|
|
|
|
|
;; ala RCS.
|
|
|
|
|
|
(let ((vc-modes (logior (file-modes (vc-name file))
|
|
|
|
|
|
(if writable 128 0)))
|
|
|
|
|
|
(failed t))
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(apply 'vc-do-command
|
|
|
|
|
|
nil 0 "/bin/sh" file 'MASTER "-c"
|
|
|
|
|
|
;; Some shells make the "" dummy argument into $0
|
|
|
|
|
|
;; while others use the shell's name as $0 and
|
|
|
|
|
|
;; use the "" as $1. The if-statement
|
|
|
|
|
|
;; converts the latter case to the former.
|
|
|
|
|
|
(format "if [ x\"$1\" = x ]; then shift; fi; \
|
1994-09-24 00:58:07 +00:00
|
|
|
|
umask %o; exec >\"$1\" || exit; \
|
|
|
|
|
|
shift; umask %o; exec get \"$@\""
|
1996-01-24 23:32:49 +00:00
|
|
|
|
(logand 511 (lognot vc-modes))
|
|
|
|
|
|
(logand 511 (lognot (default-file-modes))))
|
|
|
|
|
|
"" ; dummy argument for shell's $0
|
|
|
|
|
|
filename
|
|
|
|
|
|
(if writable "-e")
|
|
|
|
|
|
"-p"
|
|
|
|
|
|
(and rev
|
|
|
|
|
|
(concat "-r" (vc-lookup-triple file rev)))
|
|
|
|
|
|
switches)
|
|
|
|
|
|
(setq failed nil))
|
|
|
|
|
|
(and failed (file-exists-p filename)
|
|
|
|
|
|
(delete-file filename))))
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "get" file 'MASTER ;; SCCS
|
|
|
|
|
|
(if writable "-e")
|
|
|
|
|
|
(and rev (concat "-r" (vc-lookup-triple file rev)))
|
|
|
|
|
|
switches)
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version nil)))
|
|
|
|
|
|
(if workfile ;; RCS
|
|
|
|
|
|
;; RCS doesn't let us check out into arbitrary file names directly.
|
|
|
|
|
|
;; Use `co -p' and make stdout point to the correct file.
|
|
|
|
|
|
(let ((vc-modes (logior (file-modes (vc-name file))
|
|
|
|
|
|
(if writable 128 0)))
|
|
|
|
|
|
(failed t))
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(apply 'vc-do-command
|
|
|
|
|
|
nil 0 "/bin/sh" file 'MASTER "-c"
|
|
|
|
|
|
;; See the SCCS case, above, regarding the
|
|
|
|
|
|
;; if-statement.
|
|
|
|
|
|
(format "if [ x\"$1\" = x ]; then shift; fi; \
|
1994-09-24 00:58:07 +00:00
|
|
|
|
umask %o; exec >\"$1\" || exit; \
|
|
|
|
|
|
shift; umask %o; exec co \"$@\""
|
1996-01-24 23:32:49 +00:00
|
|
|
|
(logand 511 (lognot vc-modes))
|
|
|
|
|
|
(logand 511 (lognot (default-file-modes))))
|
|
|
|
|
|
"" ; dummy argument for shell's $0
|
|
|
|
|
|
filename
|
|
|
|
|
|
(if writable "-l")
|
|
|
|
|
|
(concat "-p" rev)
|
|
|
|
|
|
switches)
|
|
|
|
|
|
(setq failed nil))
|
|
|
|
|
|
(and failed (file-exists-p filename) (delete-file filename))))
|
|
|
|
|
|
(let (new-version)
|
|
|
|
|
|
;; if we should go to the head of the trunk,
|
|
|
|
|
|
;; clear the default branch first
|
|
|
|
|
|
(and rev (string= rev "")
|
|
|
|
|
|
(vc-do-command nil 0 "rcs" file 'MASTER "-b"))
|
|
|
|
|
|
;; now do the checkout
|
|
|
|
|
|
(apply 'vc-do-command
|
|
|
|
|
|
nil 0 "co" file 'MASTER
|
|
|
|
|
|
;; If locking is not strict, force to overwrite
|
|
|
|
|
|
;; the writable workfile.
|
|
|
|
|
|
(if (eq (vc-checkout-model file) 'implicit) "-f")
|
|
|
|
|
|
(if writable "-l")
|
|
|
|
|
|
(if rev (concat "-r" rev)
|
|
|
|
|
|
;; if no explicit revision was specified,
|
|
|
|
|
|
;; check out that of the working file
|
|
|
|
|
|
(let ((workrev (vc-workfile-version file)))
|
|
|
|
|
|
(if workrev (concat "-r" workrev)
|
|
|
|
|
|
nil)))
|
|
|
|
|
|
switches)
|
|
|
|
|
|
;; determine the new workfile version
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer "*vc*")
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(setq new-version
|
|
|
|
|
|
(if (re-search-forward "^revision \\([0-9.]+\\).*\n" nil t)
|
|
|
|
|
|
(buffer-substring (match-beginning 1) (match-end 1)))))
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version new-version)
|
|
|
|
|
|
;; if necessary, adjust the default branch
|
|
|
|
|
|
(and rev (not (string= rev ""))
|
|
|
|
|
|
(vc-do-command nil 0 "rcs" file 'MASTER
|
|
|
|
|
|
(concat "-b" (if (vc-latest-on-branch-p file)
|
|
|
|
|
|
(if (vc-trunk-p new-version) nil
|
|
|
|
|
|
(vc-branch-part new-version))
|
|
|
|
|
|
new-version))))))
|
|
|
|
|
|
(if workfile ;; CVS
|
|
|
|
|
|
;; CVS is much like RCS
|
|
|
|
|
|
(let ((failed t))
|
|
|
|
|
|
(unwind-protect
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(apply 'vc-do-command
|
|
|
|
|
|
nil 0 "/bin/sh" file 'WORKFILE "-c"
|
|
|
|
|
|
"exec >\"$1\" || exit; shift; exec cvs update \"$@\""
|
|
|
|
|
|
"" ; dummy argument for shell's $0
|
|
|
|
|
|
workfile
|
|
|
|
|
|
(concat "-r" rev)
|
|
|
|
|
|
"-p"
|
|
|
|
|
|
switches)
|
|
|
|
|
|
(setq failed nil))
|
|
|
|
|
|
(and failed (file-exists-p filename) (delete-file filename))))
|
|
|
|
|
|
;; default for verbose checkout: clear the sticky tag
|
|
|
|
|
|
;; so that the actual update will get the head of the trunk
|
|
|
|
|
|
(and rev (string= rev "")
|
|
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE "update" "-A"))
|
|
|
|
|
|
;; If a revision was specified, check that out.
|
|
|
|
|
|
(if rev
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "cvs" file 'WORKFILE
|
|
|
|
|
|
(and writable (eq (vc-checkout-model file) 'manual) "-w")
|
|
|
|
|
|
"update"
|
|
|
|
|
|
(and rev (not (string= rev ""))
|
|
|
|
|
|
(concat "-r" rev))
|
|
|
|
|
|
switches)
|
1997-07-31 06:23:19 +00:00
|
|
|
|
;; If no revision was specified, call "cvs edit" to make
|
|
|
|
|
|
;; the file writeable.
|
|
|
|
|
|
(and writable (eq (vc-checkout-model file) 'manual)
|
|
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE "edit")))
|
|
|
|
|
|
(if rev (vc-file-setprop file 'vc-workfile-version nil))))
|
1996-01-24 23:32:49 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((not workfile)
|
|
|
|
|
|
(vc-file-clear-masterprops file)
|
|
|
|
|
|
(if writable
|
1996-12-26 12:07:05 +00:00
|
|
|
|
(vc-file-setprop file 'vc-locking-user (vc-user-login-name)))
|
1996-01-24 23:32:49 +00:00
|
|
|
|
(vc-file-setprop file
|
|
|
|
|
|
'vc-checkout-time (nth 5 (file-attributes file)))))
|
|
|
|
|
|
(message "Checking out %s...done" filename))))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-logentry-check (file)
|
|
|
|
|
|
(vc-backend-dispatch file
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(if (>= (buffer-size) 512) ;; SCCS
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(goto-char 512)
|
|
|
|
|
|
(error
|
1993-06-17 05:08:23 +00:00
|
|
|
|
"Log must be less than 512 characters; point is now at pos 512")))
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
nil ;; RCS
|
|
|
|
|
|
nil) ;; CVS
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(defun vc-backend-checkin (file rev comment)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;; Register changes to FILE as level REV with explanatory COMMENT.
|
|
|
|
|
|
;; Automatically retrieves a read-only version of the file with
|
|
|
|
|
|
;; keywords expanded if vc-keep-workfiles is non-nil, otherwise
|
|
|
|
|
|
;; it deletes the workfile.
|
1996-01-05 22:21:28 +00:00
|
|
|
|
;; Adaptation for RCS branch support: if this is an explicit checkin,
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;; or if the checkin creates a new branch, set the master file branch
|
|
|
|
|
|
;; accordingly.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(message "Checking in %s..." file)
|
1995-06-14 11:16:17 +00:00
|
|
|
|
;; "This log message intentionally left almost blank".
|
1995-06-23 15:50:17 +00:00
|
|
|
|
;; RCS 5.7 gripes about white-space-only comments too.
|
|
|
|
|
|
(or (and comment (string-match "[^\t\n ]" comment))
|
|
|
|
|
|
(setq comment "*** empty log message ***"))
|
1992-10-05 05:49:27 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
|
;; Change buffers to get local value of vc-checkin-switches.
|
|
|
|
|
|
(set-buffer (or (get-file-buffer file) (current-buffer)))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(let ((switches
|
1995-12-29 20:49:46 +00:00
|
|
|
|
(if (stringp vc-checkin-switches)
|
|
|
|
|
|
(list vc-checkin-switches)
|
|
|
|
|
|
vc-checkin-switches)))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
;; Clear the master-properties. Do that here, not at the
|
|
|
|
|
|
;; end, because if the check-in fails we want them to get
|
|
|
|
|
|
;; re-computed before the next try.
|
|
|
|
|
|
(vc-file-clear-masterprops file)
|
|
|
|
|
|
(vc-backend-dispatch file
|
|
|
|
|
|
;; SCCS
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "delta" file 'MASTER
|
|
|
|
|
|
(if rev (concat "-r" rev))
|
|
|
|
|
|
(concat "-y" comment)
|
|
|
|
|
|
switches)
|
|
|
|
|
|
(vc-file-setprop file 'vc-locking-user 'none)
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version nil)
|
|
|
|
|
|
(if vc-keep-workfiles
|
|
|
|
|
|
(vc-do-command nil 0 "get" file 'MASTER))
|
|
|
|
|
|
)
|
|
|
|
|
|
;; RCS
|
|
|
|
|
|
(let ((old-version (vc-workfile-version file)) new-version)
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "ci" file 'MASTER
|
|
|
|
|
|
;; if available, use the secure check-in option
|
|
|
|
|
|
(and (vc-backend-release-p 'RCS "5.6.4") "-j")
|
|
|
|
|
|
(concat (if vc-keep-workfiles "-u" "-r") rev)
|
|
|
|
|
|
(concat "-m" comment)
|
|
|
|
|
|
switches)
|
|
|
|
|
|
(vc-file-setprop file 'vc-locking-user 'none)
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version nil)
|
|
|
|
|
|
|
|
|
|
|
|
;; determine the new workfile version
|
|
|
|
|
|
(set-buffer "*vc*")
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(if (or (re-search-forward
|
|
|
|
|
|
"new revision: \\([0-9.]+\\);" nil t)
|
|
|
|
|
|
(re-search-forward
|
|
|
|
|
|
"reverting to previous revision \\([0-9.]+\\)" nil t))
|
|
|
|
|
|
(progn (setq new-version (buffer-substring (match-beginning 1)
|
|
|
|
|
|
(match-end 1)))
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version new-version)))
|
|
|
|
|
|
|
|
|
|
|
|
;; if we got to a different branch, adjust the default
|
|
|
|
|
|
;; branch accordingly
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((and old-version new-version
|
|
|
|
|
|
(not (string= (vc-branch-part old-version)
|
|
|
|
|
|
(vc-branch-part new-version))))
|
|
|
|
|
|
(vc-do-command nil 0 "rcs" file 'MASTER
|
|
|
|
|
|
(if (vc-trunk-p new-version) "-b"
|
|
|
|
|
|
(concat "-b" (vc-branch-part new-version))))
|
|
|
|
|
|
;; If this is an old RCS release, we might have
|
|
|
|
|
|
;; to remove a remaining lock.
|
|
|
|
|
|
(if (not (vc-backend-release-p 'RCS "5.6.2"))
|
|
|
|
|
|
;; exit status of 1 is also accepted.
|
|
|
|
|
|
;; It means that the lock was removed before.
|
|
|
|
|
|
(vc-do-command nil 1 "rcs" file 'MASTER
|
|
|
|
|
|
(concat "-u" old-version))))))
|
|
|
|
|
|
;; CVS
|
|
|
|
|
|
(progn
|
|
|
|
|
|
;; explicit check-in to the trunk requires a
|
|
|
|
|
|
;; double check-in (first unexplicit) (CVS-1.3)
|
|
|
|
|
|
(condition-case nil
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(if (and rev (vc-trunk-p rev))
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "cvs" file 'WORKFILE
|
|
|
|
|
|
"ci" "-m" "intermediate"
|
|
|
|
|
|
switches))
|
|
|
|
|
|
(apply 'vc-do-command nil 0 "cvs" file 'WORKFILE
|
|
|
|
|
|
"ci" (if rev (concat "-r" rev))
|
|
|
|
|
|
(concat "-m" comment)
|
|
|
|
|
|
switches))
|
|
|
|
|
|
(error (if (eq (vc-cvs-status file) 'needs-merge)
|
|
|
|
|
|
;; The CVS output will be on top of this message.
|
|
|
|
|
|
(error "Type C-x 0 C-x C-q to merge in changes")
|
|
|
|
|
|
(error "Check-in failed"))))
|
|
|
|
|
|
;; determine and store the new workfile version
|
|
|
|
|
|
(set-buffer "*vc*")
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(if (re-search-forward
|
|
|
|
|
|
"^\\(new\\|initial\\) revision: \\([0-9.]+\\)" nil t)
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version
|
|
|
|
|
|
(buffer-substring (match-beginning 2)
|
|
|
|
|
|
(match-end 2)))
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version nil))
|
|
|
|
|
|
;; if this was an explicit check-in, remove the sticky tag
|
|
|
|
|
|
(if rev
|
|
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE "update" "-A"))
|
1997-07-31 06:23:19 +00:00
|
|
|
|
;; Forget the checkout model, because we might have assumed
|
|
|
|
|
|
;; a wrong one when we found the file. After commit, we can
|
|
|
|
|
|
;; tell it from the permissions of the file
|
|
|
|
|
|
;; (see vc-checkout-model).
|
|
|
|
|
|
(vc-file-setprop file 'vc-checkout-model nil)
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(vc-file-setprop file 'vc-locking-user 'none)
|
|
|
|
|
|
(vc-file-setprop file 'vc-checkout-time
|
|
|
|
|
|
(nth 5 (file-attributes file)))))))
|
Adapt to the changes in vc-hooks.el, namely, the new
'none-value of vc-locking-user, and the consistent caching
of all properties. Especially, make the properties survive
check-ins and check-outs. Various minor bug fixes.
(vc-file-clear-masterprops): New function.
(vc-backend-checkin, vc-backend-revert): Set vc-locking-user
to 'none if the file is unlocked.
(vc-backend-checkin, vc-backend-revert, vc-backend-checkout):
Use vc-file-clear-masterprops, and adjust those properties
that are not cleared.
(vc-resynch-window): Temporarily remove vc-find-file-hook, so
that we don't lose the file properties during check-in/out.
(vc-resynch-window): Do not try to delete the current window if
`vc-keep-workfiles' is nil (doesn't make sense; killing the
buffer is enough.)
(vc-backend-checkin): Rewrote the code that adjusts the default
branch and removes any locks that might remain after check-in.
(vc-cancel-version): Abort with error message in the CVS case.
(The error used to be signalled in vc-backend-uncheck, which is
a little too late.)
(vc-minor-revision): Function removed.
1995-06-16 18:02:51 +00:00
|
|
|
|
(message "Checking in %s...done" file))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-revert (file)
|
1998-03-31 17:19:32 +00:00
|
|
|
|
;; Revert file to the version it was based on.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(message "Reverting %s..." file)
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(vc-file-clear-masterprops file)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(vc-backend-dispatch
|
|
|
|
|
|
file
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;; SCCS
|
|
|
|
|
|
(progn
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "unget" file 'MASTER nil)
|
1998-03-31 17:19:32 +00:00
|
|
|
|
(vc-do-command nil 0 "get" file 'MASTER nil)
|
|
|
|
|
|
;; Checking out explicit versions is not supported under SCCS, yet.
|
|
|
|
|
|
;; We always "revert" to the latest version; therefore
|
|
|
|
|
|
;; vc-workfile-version is cleared here so that it gets recomputed.
|
1998-04-15 09:48:04 +00:00
|
|
|
|
(vc-file-setprop file 'vc-workfile-version nil))
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;; RCS
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "co" file 'MASTER
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
"-f" (concat "-u" (vc-workfile-version file)))
|
|
|
|
|
|
;; CVS
|
1998-03-31 18:08:36 +00:00
|
|
|
|
;; Check out via standard output (caused by the final argument
|
|
|
|
|
|
;; FILE below), so that no sticky tag is set.
|
|
|
|
|
|
(vc-backend-checkout file nil (vc-workfile-version file) file))
|
Adapt to the changes in vc-hooks.el, namely, the new
'none-value of vc-locking-user, and the consistent caching
of all properties. Especially, make the properties survive
check-ins and check-outs. Various minor bug fixes.
(vc-file-clear-masterprops): New function.
(vc-backend-checkin, vc-backend-revert): Set vc-locking-user
to 'none if the file is unlocked.
(vc-backend-checkin, vc-backend-revert, vc-backend-checkout):
Use vc-file-clear-masterprops, and adjust those properties
that are not cleared.
(vc-resynch-window): Temporarily remove vc-find-file-hook, so
that we don't lose the file properties during check-in/out.
(vc-resynch-window): Do not try to delete the current window if
`vc-keep-workfiles' is nil (doesn't make sense; killing the
buffer is enough.)
(vc-backend-checkin): Rewrote the code that adjusts the default
branch and removes any locks that might remain after check-in.
(vc-cancel-version): Abort with error message in the CVS case.
(The error used to be signalled in vc-backend-uncheck, which is
a little too late.)
(vc-minor-revision): Function removed.
1995-06-16 18:02:51 +00:00
|
|
|
|
(vc-file-setprop file 'vc-locking-user 'none)
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
(vc-file-setprop file 'vc-checkout-time (nth 5 (file-attributes file)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(message "Reverting %s...done" file)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-steal (file &optional rev)
|
|
|
|
|
|
;; Steal the lock on the current workfile. Needs RCS 5.6.2 or later for -M.
|
|
|
|
|
|
(message "Stealing lock on %s..." file)
|
1993-07-25 22:36:03 +00:00
|
|
|
|
(vc-backend-dispatch file
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(progn ;SCCS
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "unget" file 'MASTER "-n" (if rev (concat "-r" rev)))
|
|
|
|
|
|
(vc-do-command nil 0 "get" file 'MASTER "-g" (if rev (concat "-r" rev)))
|
1993-07-22 10:57:46 +00:00
|
|
|
|
)
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "rcs" file 'MASTER ;RCS
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
"-M" (concat "-u" rev) (concat "-l" rev))
|
1995-12-25 18:46:17 +00:00
|
|
|
|
(error "You cannot steal a CVS lock; there are no CVS locks to steal") ;CVS
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
)
|
1996-12-26 12:07:05 +00:00
|
|
|
|
(vc-file-setprop file 'vc-locking-user (vc-user-login-name))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(message "Stealing lock on %s...done" file)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-uncheck (file target)
|
1995-08-17 12:40:03 +00:00
|
|
|
|
;; Undo the latest checkin.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(message "Removing last change from %s..." file)
|
|
|
|
|
|
(vc-backend-dispatch file
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "rmdel" file 'MASTER (concat "-r" target))
|
|
|
|
|
|
(vc-do-command nil 0 "rcs" file 'MASTER (concat "-o" target))
|
Adapt to the changes in vc-hooks.el, namely, the new
'none-value of vc-locking-user, and the consistent caching
of all properties. Especially, make the properties survive
check-ins and check-outs. Various minor bug fixes.
(vc-file-clear-masterprops): New function.
(vc-backend-checkin, vc-backend-revert): Set vc-locking-user
to 'none if the file is unlocked.
(vc-backend-checkin, vc-backend-revert, vc-backend-checkout):
Use vc-file-clear-masterprops, and adjust those properties
that are not cleared.
(vc-resynch-window): Temporarily remove vc-find-file-hook, so
that we don't lose the file properties during check-in/out.
(vc-resynch-window): Do not try to delete the current window if
`vc-keep-workfiles' is nil (doesn't make sense; killing the
buffer is enough.)
(vc-backend-checkin): Rewrote the code that adjusts the default
branch and removes any locks that might remain after check-in.
(vc-cancel-version): Abort with error message in the CVS case.
(The error used to be signalled in vc-backend-uncheck, which is
a little too late.)
(vc-minor-revision): Function removed.
1995-06-16 18:02:51 +00:00
|
|
|
|
nil ;; this is never reached under CVS
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
(message "Removing last change from %s...done" file)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-print-log (file)
|
1995-07-18 20:52:39 +00:00
|
|
|
|
;; Get change log associated with FILE.
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(vc-backend-dispatch
|
|
|
|
|
|
file
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-do-command nil 0 "prs" file 'MASTER)
|
|
|
|
|
|
(vc-do-command nil 0 "rlog" file 'MASTER)
|
1996-11-07 03:17:16 +00:00
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE "log")))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-assign-name (file name)
|
|
|
|
|
|
;; Assign to a FILE's latest version a given NAME.
|
|
|
|
|
|
(vc-backend-dispatch file
|
1995-07-18 20:52:39 +00:00
|
|
|
|
(vc-add-triple name file (vc-latest-version file)) ;; SCCS
|
|
|
|
|
|
(vc-do-command nil 0 "rcs" file 'MASTER (concat "-n" name ":")) ;; RCS
|
|
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE "tag" name) ;; CVS
|
1993-03-09 22:56:29 +00:00
|
|
|
|
)
|
|
|
|
|
|
)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1993-12-03 09:30:38 +00:00
|
|
|
|
(defun vc-backend-diff (file &optional oldvers newvers cmp)
|
|
|
|
|
|
;; Get a difference report between two versions of FILE.
|
|
|
|
|
|
;; Get only a brief comparison report if CMP, a difference report otherwise.
|
1997-03-04 18:00:30 +00:00
|
|
|
|
(let ((backend (vc-backend file)) options status
|
|
|
|
|
|
(diff-switches-list (if (listp diff-switches)
|
|
|
|
|
|
diff-switches
|
|
|
|
|
|
(list diff-switches))))
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((eq backend 'SCCS)
|
1993-03-17 13:58:48 +00:00
|
|
|
|
(setq oldvers (vc-lookup-triple file oldvers))
|
1997-03-04 18:00:30 +00:00
|
|
|
|
(setq newvers (vc-lookup-triple file newvers))
|
|
|
|
|
|
(setq options (append (list (and cmp "--brief") "-q"
|
|
|
|
|
|
(and oldvers (concat "-r" oldvers))
|
|
|
|
|
|
(and newvers (concat "-r" newvers)))
|
|
|
|
|
|
(and (not cmp) diff-switches-list)))
|
|
|
|
|
|
(apply 'vc-do-command "*vc-diff*" 1 "vcdiff" file 'MASTER options))
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
((eq backend 'RCS)
|
1995-11-02 09:36:01 +00:00
|
|
|
|
(if (not oldvers) (setq oldvers (vc-workfile-version file)))
|
|
|
|
|
|
;; If we know that --brief is not supported, don't try it.
|
1997-03-04 18:00:30 +00:00
|
|
|
|
(setq cmp (and cmp (not (eq vc-rcsdiff-knows-brief 'no))))
|
|
|
|
|
|
(setq options (append (list (and cmp "--brief") "-q"
|
|
|
|
|
|
(concat "-r" oldvers)
|
|
|
|
|
|
(and newvers (concat "-r" newvers)))
|
|
|
|
|
|
(and (not cmp) diff-switches-list)))
|
|
|
|
|
|
(setq status (apply 'vc-do-command "*vc-diff*" 2
|
|
|
|
|
|
"rcsdiff" file 'WORKFILE options))
|
|
|
|
|
|
;; If --brief didn't work, do a double-take and remember it
|
|
|
|
|
|
;; for the future.
|
|
|
|
|
|
(if (eq status 2)
|
|
|
|
|
|
(prog1
|
|
|
|
|
|
(apply 'vc-do-command "*vc-diff*" 1 "rcsdiff" file 'WORKFILE
|
|
|
|
|
|
(if cmp (cdr options) options))
|
|
|
|
|
|
(if cmp (setq vc-rcsdiff-knows-brief 'no)))
|
|
|
|
|
|
;; If --brief DID work, remember that, too.
|
|
|
|
|
|
(and cmp (not vc-rcsdiff-knows-brief)
|
|
|
|
|
|
(setq vc-rcsdiff-knows-brief 'yes))
|
|
|
|
|
|
status))
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
;; CVS is different.
|
|
|
|
|
|
((eq backend 'CVS)
|
1997-03-04 18:00:30 +00:00
|
|
|
|
(if (string= (vc-workfile-version file) "0")
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
;; This file is added but not yet committed; there is no master file.
|
|
|
|
|
|
(if (or oldvers newvers)
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
(error "No revisions of %s exist" file)
|
|
|
|
|
|
(if cmp 1 ;; file is added but not committed,
|
|
|
|
|
|
;; we regard this as "changed".
|
|
|
|
|
|
;; diff it against /dev/null.
|
|
|
|
|
|
(apply 'vc-do-command
|
|
|
|
|
|
"*vc-diff*" 1 "diff" file 'WORKFILE
|
1999-01-02 21:54:32 +00:00
|
|
|
|
(append diff-switches-list '("/dev/null")))))
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;; cmp is not yet implemented -- we always do a full diff.
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(apply 'vc-do-command
|
1995-07-18 20:52:39 +00:00
|
|
|
|
"*vc-diff*" 1 "cvs" file 'WORKFILE "diff"
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
(and oldvers (concat "-r" oldvers))
|
|
|
|
|
|
(and newvers (concat "-r" newvers))
|
1999-01-02 21:54:32 +00:00
|
|
|
|
diff-switches-list))))))
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-backend-merge-news (file)
|
|
|
|
|
|
;; Merge in any new changes made to FILE.
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(message "Merging changes into %s..." file)
|
|
|
|
|
|
(prog1
|
|
|
|
|
|
(vc-backend-dispatch
|
|
|
|
|
|
file
|
|
|
|
|
|
(error "vc-backend-merge-news not meaningful for SCCS files") ;SCCS
|
|
|
|
|
|
(error "vc-backend-merge-news not meaningful for RCS files") ;RCS
|
|
|
|
|
|
(save-excursion ; CVS
|
|
|
|
|
|
(vc-file-clear-masterprops file)
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version nil)
|
|
|
|
|
|
(vc-file-setprop file 'vc-locking-user nil)
|
1997-07-18 16:06:57 +00:00
|
|
|
|
(vc-file-setprop file 'vc-checkout-time nil)
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE "update")
|
1997-07-18 16:06:57 +00:00
|
|
|
|
;; Analyze the merge result reported by CVS, and set
|
|
|
|
|
|
;; file properties accordingly.
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(set-buffer (get-buffer "*vc*"))
|
|
|
|
|
|
(goto-char (point-min))
|
1997-07-18 16:06:57 +00:00
|
|
|
|
;; get new workfile version
|
|
|
|
|
|
(if (re-search-forward (concat "^Merging differences between "
|
|
|
|
|
|
"[01234567890.]* and "
|
|
|
|
|
|
"\\([01234567890.]*\\) into")
|
|
|
|
|
|
nil t)
|
|
|
|
|
|
(vc-file-setprop file 'vc-workfile-version (match-string 1)))
|
|
|
|
|
|
;; get file status
|
|
|
|
|
|
(if (re-search-forward
|
1998-08-04 13:14:41 +00:00
|
|
|
|
(concat "^\\(\\([CMU]\\) \\)?"
|
|
|
|
|
|
(regexp-quote (file-name-nondirectory file))
|
|
|
|
|
|
"\\( already contains the differences between \\)?")
|
1997-07-18 16:06:57 +00:00
|
|
|
|
nil t)
|
|
|
|
|
|
(cond
|
|
|
|
|
|
;; Merge successful, we are in sync with repository now
|
1998-08-04 13:14:41 +00:00
|
|
|
|
((or (string= (match-string 2) "U")
|
1998-10-30 19:11:08 +00:00
|
|
|
|
(string= (match-string 2) "P")
|
1998-08-04 13:14:41 +00:00
|
|
|
|
;; Special case: file contents in sync with
|
|
|
|
|
|
;; repository anyhow:
|
|
|
|
|
|
(match-string 3))
|
|
|
|
|
|
(vc-file-setprop file 'vc-locking-user 'none)
|
1997-07-18 16:06:57 +00:00
|
|
|
|
(vc-file-setprop file 'vc-checkout-time
|
|
|
|
|
|
(nth 5 (file-attributes file)))
|
|
|
|
|
|
0) ;; indicate success to the caller
|
|
|
|
|
|
;; Merge successful, but our own changes are still in the file
|
1998-08-04 13:14:41 +00:00
|
|
|
|
((string= (match-string 2) "M")
|
1997-07-18 16:06:57 +00:00
|
|
|
|
(vc-file-setprop file 'vc-locking-user (vc-file-owner file))
|
|
|
|
|
|
(vc-file-setprop file 'vc-checkout-time 0)
|
|
|
|
|
|
0) ;; indicate success to the caller
|
|
|
|
|
|
;; Conflicts detected!
|
1998-08-04 13:14:41 +00:00
|
|
|
|
((string= (match-string 2) "C")
|
1997-07-18 16:06:57 +00:00
|
|
|
|
(vc-file-setprop file 'vc-locking-user (vc-file-owner file))
|
|
|
|
|
|
(vc-file-setprop file 'vc-checkout-time 0)
|
|
|
|
|
|
1) ;; signal the error to the caller
|
|
|
|
|
|
)
|
|
|
|
|
|
(pop-to-buffer "*vc*")
|
|
|
|
|
|
(error "Couldn't analyze cvs update result"))))
|
1995-08-18 20:29:14 +00:00
|
|
|
|
(message "Merging changes into %s...done" file)))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
1998-04-05 18:45:06 +00:00
|
|
|
|
(defun vc-backend-merge (file first-version &optional second-version)
|
|
|
|
|
|
;; Merge the changes between FIRST-VERSION and SECOND-VERSION into
|
|
|
|
|
|
;; the current working copy of FILE. It is assumed that FILE is
|
|
|
|
|
|
;; locked and writable (vc-merge ensures this).
|
|
|
|
|
|
(vc-backend-dispatch file
|
|
|
|
|
|
;; SCCS
|
|
|
|
|
|
(error "Sorry, merging is not implemented for SCCS")
|
|
|
|
|
|
;; RCS
|
|
|
|
|
|
(vc-do-command nil 1 "rcsmerge" file 'MASTER
|
|
|
|
|
|
"-kk" ;; ignore keyword conflicts
|
|
|
|
|
|
(concat "-r" first-version)
|
|
|
|
|
|
(if second-version (concat "-r" second-version)))
|
|
|
|
|
|
;; CVS
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(vc-do-command nil 0 "cvs" file 'WORKFILE
|
|
|
|
|
|
"update" "-kk"
|
|
|
|
|
|
(concat "-j" first-version)
|
|
|
|
|
|
(concat "-j" second-version))
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(set-buffer (get-buffer "*vc*"))
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(if (re-search-forward "conflicts during merge" nil t)
|
|
|
|
|
|
1 ;; signal error
|
|
|
|
|
|
0 ;; signal success
|
|
|
|
|
|
)))))
|
|
|
|
|
|
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(defun vc-check-headers ()
|
|
|
|
|
|
"Check if the current file has any headers in it."
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
|
(vc-backend-dispatch buffer-file-name
|
|
|
|
|
|
(re-search-forward "%[MIRLBSDHTEGUYFPQCZWA]%" nil t) ;; SCCS
|
|
|
|
|
|
(re-search-forward "\\$[A-Za-z\300-\326\330-\366\370-\377]+\\(: [\t -#%-\176\240-\377]*\\)?\\$" nil t) ;; RCS
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
'RCS ;; CVS works like RCS in this regard.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
)
|
|
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
|
;; Back-end-dependent stuff ends here.
|
|
|
|
|
|
|
|
|
|
|
|
;; Set up key bindings for use while editing log messages
|
|
|
|
|
|
|
1997-02-27 01:21:24 +00:00
|
|
|
|
(defun vc-log-mode (&optional file)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
"Minor mode for driving version-control tools.
|
|
|
|
|
|
These bindings are added to the global keymap when you enter this mode:
|
|
|
|
|
|
\\[vc-next-action] perform next logical version-control operation on current file
|
|
|
|
|
|
\\[vc-register] register current file
|
|
|
|
|
|
\\[vc-toggle-read-only] like next-action, but won't register files
|
|
|
|
|
|
\\[vc-insert-headers] insert version-control headers in current file
|
|
|
|
|
|
\\[vc-print-log] display change history of current file
|
|
|
|
|
|
\\[vc-revert-buffer] revert buffer to latest version
|
|
|
|
|
|
\\[vc-cancel-version] undo latest checkin
|
|
|
|
|
|
\\[vc-diff] show diffs between file versions
|
1993-09-15 23:19:13 +00:00
|
|
|
|
\\[vc-version-other-window] visit old version in another window
|
1992-07-31 22:24:03 +00:00
|
|
|
|
\\[vc-directory] show all files locked by any user in or below .
|
1997-06-09 06:01:12 +00:00
|
|
|
|
\\[vc-annotate] colorful display of the cvs annotate command
|
1992-07-31 22:24:03 +00:00
|
|
|
|
\\[vc-update-change-log] add change log entry from recent checkins
|
|
|
|
|
|
|
|
|
|
|
|
While you are entering a change log message for a version, the following
|
|
|
|
|
|
additional bindings will be in effect.
|
|
|
|
|
|
|
|
|
|
|
|
\\[vc-finish-logentry] proceed with check in, ending log message entry
|
|
|
|
|
|
|
|
|
|
|
|
Whenever you do a checkin, your log comment is added to a ring of
|
|
|
|
|
|
saved comments. These can be recalled as follows:
|
|
|
|
|
|
|
|
|
|
|
|
\\[vc-next-comment] replace region with next message in comment ring
|
|
|
|
|
|
\\[vc-previous-comment] replace region with previous message in comment ring
|
1993-04-25 22:26:40 +00:00
|
|
|
|
\\[vc-comment-search-reverse] search backward for regexp in the comment ring
|
|
|
|
|
|
\\[vc-comment-search-forward] search backward for regexp in the comment ring
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
Entry to the change-log submode calls the value of text-mode-hook, then
|
|
|
|
|
|
the value of vc-log-mode-hook.
|
|
|
|
|
|
|
|
|
|
|
|
Global user options:
|
|
|
|
|
|
vc-initial-comment If non-nil, require user to enter a change
|
|
|
|
|
|
comment upon first checkin of the file.
|
|
|
|
|
|
|
|
|
|
|
|
vc-keep-workfiles Non-nil value prevents workfiles from being
|
|
|
|
|
|
deleted when changes are checked in
|
|
|
|
|
|
|
|
|
|
|
|
vc-suppress-confirm Suppresses some confirmation prompts,
|
|
|
|
|
|
notably for reversions.
|
|
|
|
|
|
|
1993-03-17 13:58:48 +00:00
|
|
|
|
vc-header-alist Which keywords to insert when adding headers
|
1992-07-31 22:24:03 +00:00
|
|
|
|
with \\[vc-insert-headers]. Defaults to
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
'(\"\%\W\%\") under SCCS, '(\"\$Id\$\") under
|
|
|
|
|
|
RCS and CVS.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
vc-static-header-alist By default, version headers inserted in C files
|
|
|
|
|
|
get stuffed in a static string area so that
|
(vc-backend-checkin): When CVS checks in a file, it is
immediately checked out again, so set vc-checkout-time.
(vc-fetch-properties): CVS 1.4A1 says "Repository revision".
(vc-locking-user): Do something sensible when the backend
is CVS. May return a numerical UID or a string when CVS is used.
(vc-dired-reformat-line): Handle numerical arguments.
(vc-backend-checkout): Don't extract CVS files twice.
(vc-next-action-on-file): Handle return value from
vc-backend-merge-news correctly.
(vc-rename-file): Fixed call to vc-backend-dispatch.
(vc-make-buffer-writable-hook): New hook, for CVS only.
(vc-header-alist): Added header for CVS.
(vc-next-action-on-file): Added support for CVS.
(vc-next-action, vc-checkin, vc-revert-buffer): Doc fixes.
(vc-rename-file): Disable if the backend is CVS.
(vc-log-info): New arguments: LAST and FLAGS, passed on to
vc-do-command. All callers updated.
(vc-fetch-properties): Implement support for CVS files.
(vc-backend-checkin): Args REV and COMMENT no longer optional.
Implement support for CVS.
(vc-backend-revert): Implement support for CVS.
(vc-backend-diff): Treat files which are added, but not yet committed,
specially (diff them against /dev/null).
(vc-backend-merge-news): New function.
(vc-log-mode): Talk a little about CVS in the comment.
(vc-log-info): Simplify code.
(vc-do-command): New argument LAST. All callers updated.
Legal values for LAST are 'MASTER and 'BASE.
(vc-backend-dispatch): New argument C, used by CVS. All callers
updated, but many just passes an (error "NYI") form.
(vc-backend-admin): Issue a "cvs add" (but not a "cvs commit").
(vc-backend-checkout, vc-backend-logentry-check, vc-backend-print-log,
vc-backend-assign-name, vc-backend-diff, vc-check-headers): Handle CVS.
(vc-backend-steal, vc-backend-uncheck): Give error if using CVS.
(vc-backend-diff): Fixed typo in SCCS code.
1994-10-03 21:57:47 +00:00
|
|
|
|
ident(RCS/CVS) or what(SCCS) can see them in
|
|
|
|
|
|
the compiled object code. You can override
|
|
|
|
|
|
this by setting this variable to nil, or change
|
1992-07-31 22:24:03 +00:00
|
|
|
|
the header template by changing it.
|
|
|
|
|
|
|
|
|
|
|
|
vc-command-messages if non-nil, display run messages from the
|
|
|
|
|
|
actual version-control utilities (this is
|
|
|
|
|
|
intended primarily for people hacking vc
|
|
|
|
|
|
itself).
|
|
|
|
|
|
"
|
|
|
|
|
|
(interactive)
|
|
|
|
|
|
(set-syntax-table text-mode-syntax-table)
|
|
|
|
|
|
(use-local-map vc-log-entry-mode)
|
|
|
|
|
|
(setq local-abbrev-table text-mode-abbrev-table)
|
|
|
|
|
|
(setq major-mode 'vc-log-mode)
|
|
|
|
|
|
(setq mode-name "VC-Log")
|
|
|
|
|
|
(make-local-variable 'vc-log-file)
|
1997-02-27 01:21:24 +00:00
|
|
|
|
(setq vc-log-file file)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(make-local-variable 'vc-log-version)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(make-local-variable 'vc-comment-ring-index)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
|
|
(setq buffer-file-name nil)
|
|
|
|
|
|
(run-hooks 'text-mode-hook 'vc-log-mode-hook)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
;; Initialization code, to be done just once at load-time
|
|
|
|
|
|
(if vc-log-entry-mode
|
|
|
|
|
|
nil
|
|
|
|
|
|
(setq vc-log-entry-mode (make-sparse-keymap))
|
|
|
|
|
|
(define-key vc-log-entry-mode "\M-n" 'vc-next-comment)
|
|
|
|
|
|
(define-key vc-log-entry-mode "\M-p" 'vc-previous-comment)
|
1993-04-25 22:26:40 +00:00
|
|
|
|
(define-key vc-log-entry-mode "\M-r" 'vc-comment-search-reverse)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
(define-key vc-log-entry-mode "\M-s" 'vc-comment-search-forward)
|
|
|
|
|
|
(define-key vc-log-entry-mode "\C-c\C-c" 'vc-finish-logentry)
|
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
;;; These things should probably be generally available
|
|
|
|
|
|
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(defun vc-file-tree-walk (dirname func &rest args)
|
|
|
|
|
|
"Walk recursively through DIRNAME.
|
1993-05-12 21:30:35 +00:00
|
|
|
|
Invoke FUNC f ARGS on each non-directory file f underneath it."
|
1995-09-08 20:39:17 +00:00
|
|
|
|
(vc-file-tree-walk-internal (expand-file-name dirname) func args)
|
|
|
|
|
|
(message "Traversing directory %s...done" dirname))
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
|
|
|
|
|
|
(defun vc-file-tree-walk-internal (file func args)
|
|
|
|
|
|
(if (not (file-directory-p file))
|
|
|
|
|
|
(apply func file args)
|
1995-06-19 13:36:45 +00:00
|
|
|
|
(message "Traversing directory %s..." (abbreviate-file-name file))
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(let ((dir (file-name-as-directory file)))
|
|
|
|
|
|
(mapcar
|
|
|
|
|
|
(function
|
|
|
|
|
|
(lambda (f) (or
|
|
|
|
|
|
(string-equal f ".")
|
|
|
|
|
|
(string-equal f "..")
|
1995-01-24 06:33:41 +00:00
|
|
|
|
(member f vc-directory-exclusion-list)
|
(vc-update-change-log): Check that ChangeLog is writable
before starting the expensive rcs2log process.
Use call-process instead of shell-command to invoke rcs2log;
this avoids undesired shell escapes and is more robust about errors.
Put mark at point-min, so that the new insertion is in the region.
(vc-checkin-hook): Fix `runs-hooks' typo.
(vc-checkout-writeable-buffer-hook): New var.
(vc-next-action): Fix bug: initial checkin was botched when C-x v v
was applied to a new file while vc-initial-comment was non-nil.
(vc-register): Don't barf when registering a new, empty buffer.
(vc-directory): The `No files are currently registered'
message was wrongly worded, because sometimes the message talks
about locked files, not registered files.
(vc-file-tree-walk): Change (apply 'funcall ...) to (apply
...), since the 'funcall is redundant.
When traversing a directory tree, message
"Traversing directory XXX" so that the user can see what progress is
being made. Traversal can take a long time. Omit first argument,
since it is always the current directory. All callers changed.
(vc-file-tree-walk-internal): New function.
(vc-do-command, vc-diff, vc-version-diff, vc-backend-diff):
Remove redundant calls to `format'.
(vc-diff): Remove unused variable `old'.
(vc-version-diff): When recursively generating a difference
listing, don't append the latest output unless diff was actually run;
otherwise, you'll get the output from the previous file by mistake.
1993-03-07 18:20:54 +00:00
|
|
|
|
(let ((dirf (concat dir f)))
|
|
|
|
|
|
(or
|
|
|
|
|
|
(file-symlink-p dirf) ;; Avoid possible loops
|
|
|
|
|
|
(vc-file-tree-walk-internal dirf func args))))))
|
|
|
|
|
|
(directory-files dir)))))
|
1992-07-31 22:24:03 +00:00
|
|
|
|
|
|
|
|
|
|
(provide 'vc)
|
|
|
|
|
|
|
|
|
|
|
|
;;; DEVELOPER'S NOTES ON CONCURRENCY PROBLEMS IN THIS CODE
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; These may be useful to anyone who has to debug or extend the package.
|
(vc-backend-checkout): Pass vc-checkout-switches arg
properly to vc-do-command.
(vc-update-change-log): Use vc-buffer-backend in menu-enable.
(vc-file-clearprops, vc-workfile-version): Functions moved to vc-hooks.el.
Add branch support for RCS; treat CVS more like RCS and SCCS.
(vc-next-action-on-file): changed CVS handling, such that C-x C-q
works as with RCS and SCCS.
(vc-consult-rcs-headers): New function.
(vc-branch-version): New per-file property, refers
to the RCS version selected by `rcs -b'.
(vc-workfile-version): New function. Also new per-file property
(vc-consult-headers): New parameter variable.
(vc-mistrust-permissions): Default set to `nil'.
(vc-locking-user): Property is now cached. The other functions
update it as necessary. Attempts to use RCS headers if enabled.
(vc-log-info, vc-parse-buffer): Various bug fixes. Added support
for property `vc-branch-version'.
(vc-backend-checkout): RCS case: if no explicit version
is specified, check out `vc-workfile-version'. After check-out,
set `vc-workfile-version' according to the version number
reported by "co".
(vc-backend-checkin): RCS case: remove any remaining locks
if a new branch was created. After every check-in, adjust
the current branch using `rcs -b' (this cannot be avoided).
CVS case: allow for explicit checkin, but only on the trunk.
(vc-next-action-on-file, vc-backend-checkout, vc-backend-checkin,
vc-backend-revert, vc-backend-diff): Explicitly use
vc-workfile-version as the default version to operate on.
1995-04-26 10:12:24 +00:00
|
|
|
|
;;; (Note that this information corresponds to versions 5.x. Some of it
|
|
|
|
|
|
;;; might have been invalidated by the additions to support branching
|
|
|
|
|
|
;;; and RCS keyword lookup. AS, 1995/03/24)
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;;
|
|
|
|
|
|
;;; A fundamental problem in VC is that there are time windows between
|
|
|
|
|
|
;;; vc-next-action's computations of the file's version-control state and
|
|
|
|
|
|
;;; the actions that change it. This is a window open to lossage in a
|
|
|
|
|
|
;;; multi-user environment; someone else could nip in and change the state
|
|
|
|
|
|
;;; of the master during it.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; The performance problem is that rlog/prs calls are very expensive; we want
|
|
|
|
|
|
;;; to avoid them as much as possible.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; ANALYSIS:
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; The performance problem, it turns out, simplifies in practice to the
|
|
|
|
|
|
;;; problem of making vc-locking-user fast. The two other functions that call
|
|
|
|
|
|
;;; prs/rlog will not be so commonly used that the slowdown is a problem; one
|
|
|
|
|
|
;;; makes snapshots, the other deletes the calling user's last change in the
|
|
|
|
|
|
;;; master.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; The race condition implies that we have to either (a) lock the master
|
|
|
|
|
|
;;; during the entire execution of vc-next-action, or (b) detect and
|
|
|
|
|
|
;;; recover from errors resulting from dispatch on an out-of-date state.
|
|
|
|
|
|
;;;
|
1996-01-05 22:21:28 +00:00
|
|
|
|
;;; Alternative (a) appears to be infeasible. The problem is that we can't
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; guarantee that the lock will ever be removed. Suppose a user starts a
|
|
|
|
|
|
;;; checkin, the change message buffer pops up, and the user, having wandered
|
|
|
|
|
|
;;; off to do something else, simply forgets about it?
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Alternative (b), on the other hand, works well with a cheap way to speed up
|
|
|
|
|
|
;;; vc-locking-user. Usually, if a file is registered, we can read its locked/
|
|
|
|
|
|
;;; unlocked state and its current owner from its permissions.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; This shortcut will fail if someone has manually changed the workfile's
|
|
|
|
|
|
;;; permissions; also if developers are munging the workfile in several
|
|
|
|
|
|
;;; directories, with symlinks to a master (in this latter case, the
|
|
|
|
|
|
;;; permissions shortcut will fail to detect a lock asserted from another
|
|
|
|
|
|
;;; directory).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Note that these cases correspond exactly to the errors which could happen
|
|
|
|
|
|
;;; because of a competing checkin/checkout race in between two instances of
|
|
|
|
|
|
;;; vc-next-action.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; For VC's purposes, a workfile/master pair may have the following states:
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; A. Unregistered. There is a workfile, there is no master.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; B. Registered and not locked by anyone.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; C. Locked by calling user and unchanged.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; D. Locked by the calling user and changed.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; E. Locked by someone other than the calling user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; This makes for 25 states and 20 error conditions. Here's the matrix:
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; VC's idea of state
|
|
|
|
|
|
;;; |
|
|
|
|
|
|
;;; V Actual state RCS action SCCS action Effect
|
|
|
|
|
|
;;; A B C D E
|
|
|
|
|
|
;;; A . 1 2 3 4 ci -u -t- admin -fb -i<file> initial admin
|
|
|
|
|
|
;;; B 5 . 6 7 8 co -l get -e checkout
|
|
|
|
|
|
;;; C 9 10 . 11 12 co -u unget; get revert
|
|
|
|
|
|
;;; D 13 14 15 . 16 ci -u -m<comment> delta -y<comment>; get checkin
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; E 17 18 19 20 . rcs -u -M -l unget -n ; get -g steal lock
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;;
|
|
|
|
|
|
;;; All commands take the master file name as a last argument (not shown).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; In the discussion below, a "self-race" is a pathological situation in
|
|
|
|
|
|
;;; which VC operations are being attempted simultaneously by two or more
|
|
|
|
|
|
;;; Emacsen running under the same username.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; The vc-next-action code has the following windows:
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window P:
|
|
|
|
|
|
;;; Between the check for existence of a master file and the call to
|
|
|
|
|
|
;;; admin/checkin in vc-buffer-admin (apparent state A). This window may
|
|
|
|
|
|
;;; never close if the initial-comment feature is on.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window Q:
|
|
|
|
|
|
;;; Between the call to vc-workfile-unchanged-p in and the immediately
|
|
|
|
|
|
;;; following revert (apparent state C).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window R:
|
|
|
|
|
|
;;; Between the call to vc-workfile-unchanged-p in and the following
|
|
|
|
|
|
;;; checkin (apparent state D). This window may never close.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window S:
|
|
|
|
|
|
;;; Between the unlock and the immediately following checkout during a
|
|
|
|
|
|
;;; revert operation (apparent state C). Included in window Q.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window T:
|
|
|
|
|
|
;;; Between vc-locking-user and the following checkout (apparent state B).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window U:
|
|
|
|
|
|
;;; Between vc-locking-user and the following revert (apparent state C).
|
|
|
|
|
|
;;; Includes windows Q and S.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window V:
|
|
|
|
|
|
;;; Between vc-locking-user and the following checkin (apparent state
|
|
|
|
|
|
;;; D). This window may never be closed if the user fails to complete the
|
|
|
|
|
|
;;; checkin message. Includes window R.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window W:
|
|
|
|
|
|
;;; Between vc-locking-user and the following steal-lock (apparent
|
1993-05-12 21:30:35 +00:00
|
|
|
|
;;; state E). This window may never close if the user fails to complete
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; the steal-lock message. Includes window X.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Window X:
|
|
|
|
|
|
;;; Between the unlock and the immediately following re-lock during a
|
|
|
|
|
|
;;; steal-lock operation (apparent state E). This window may never cloce
|
|
|
|
|
|
;;; if the user fails to complete the steal-lock message.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Errors:
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Apparent state A ---
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 1. File looked unregistered but is actually registered and not locked.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: someone else's admin during window P, with
|
|
|
|
|
|
;;; caller's admin happening before their checkout.
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; RCS: Prior to version 5.6.4, ci fails with message
|
|
|
|
|
|
;;; "no lock set by <user>". From 5.6.4 onwards, VC uses the new
|
|
|
|
|
|
;;; ci -i option and the message is "<file>,v: already exists".
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; SCCS: admin will fail with error (ad19).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; We can let these errors be passed up to the user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 2. File looked unregistered but is actually locked by caller, unchanged.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: self-race during window P.
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; RCS: Prior to version 5.6.4, reverts the file to the last saved
|
|
|
|
|
|
;;; version and unlocks it. From 5.6.4 onwards, VC uses the new
|
|
|
|
|
|
;;; ci -i option, failing with message "<file>,v: already exists".
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; SCCS: will fail with error (ad19).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Either of these consequences is acceptable.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 3. File looked unregistered but is actually locked by caller, changed.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: self-race during window P.
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; RCS: Prior to version 5.6.4, VC registers the caller's workfile as
|
|
|
|
|
|
;;; a delta with a null change comment (the -t- switch will be
|
|
|
|
|
|
;;; ignored). From 5.6.4 onwards, VC uses the new ci -i option,
|
|
|
|
|
|
;;; failing with message "<file>,v: already exists".
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; SCCS: will fail with error (ad19).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 4. File looked unregistered but is locked by someone else.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: someone else's admin during window P, with
|
|
|
|
|
|
;;; caller's admin happening *after* their checkout.
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; RCS: Prior to version 5.6.4, ci fails with a
|
|
|
|
|
|
;;; "no lock set by <user>" message. From 5.6.4 onwards,
|
|
|
|
|
|
;;; VC uses the new ci -i option, failing with message
|
|
|
|
|
|
;;; "<file>,v: already exists".
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; SCCS: will fail with error (ad19).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; We can let these errors be passed up to the user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Apparent state B ---
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 5. File looked registered and not locked, but is actually unregistered.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: master file got nuked during window P.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: will fail with "RCS/<file>: No such file or directory"
|
|
|
|
|
|
;;; SCCS: will fail with error ut4.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; We can let these errors be passed up to the user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 6. File looked registered and not locked, but is actually locked by the
|
|
|
|
|
|
;;; calling user and unchanged.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: self-race during window T.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: in the same directory as the previous workfile, co -l will fail
|
|
|
|
|
|
;;; with "co error: writable foo exists; checkout aborted". In any other
|
|
|
|
|
|
;;; directory, checkout will succeed.
|
|
|
|
|
|
;;; SCCS: will fail with ge17.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Either of these consequences is acceptable.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 7. File looked registered and not locked, but is actually locked by the
|
|
|
|
|
|
;;; calling user and changed.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; As case 6.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 8. File looked registered and not locked, but is actually locked by another
|
|
|
|
|
|
;;; user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: someone else checks it out during window T.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: co error: revision 1.3 already locked by <user>
|
|
|
|
|
|
;;; SCCS: fails with ge4 (in directory) or ut7 (outside it).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; We can let these errors be passed up to the user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Apparent state C ---
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 9. File looks locked by calling user and unchanged, but is unregistered.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; As case 5.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 10. File looks locked by calling user and unchanged, but is actually not
|
|
|
|
|
|
;;; locked.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: a self-race in window U, or by the revert's
|
|
|
|
|
|
;;; landing during window X of some other user's steal-lock or window S
|
|
|
|
|
|
;;; of another user's revert.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: succeeds, refreshing the file from the identical version in
|
|
|
|
|
|
;;; the master.
|
|
|
|
|
|
;;; SCCS: fails with error ut4 (p file nonexistent).
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Either of these consequences is acceptable.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 11. File is locked by calling user. It looks unchanged, but is actually
|
|
|
|
|
|
;;; changed.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: the file would have to be touched by a self-race
|
|
|
|
|
|
;;; during window Q.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; The revert will succeed, removing whatever changes came with
|
|
|
|
|
|
;;; the touch. It is theoretically possible that work could be lost.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 12. File looks like it's locked by the calling user and unchanged, but
|
|
|
|
|
|
;;; it's actually locked by someone else.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: a steal-lock in window V.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: co error: revision <rev> locked by <user>; use co -r or rcs -u
|
|
|
|
|
|
;;; SCCS: fails with error un2
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; We can pass these errors up to the user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Apparent state D ---
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 13. File looks like it's locked by the calling user and changed, but it's
|
|
|
|
|
|
;;; actually unregistered.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: master file got nuked during window P.
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; RCS: Prior to version 5.6.4, checks in the user's version as an
|
|
|
|
|
|
;;; initial delta. From 5.6.4 onwards, VC uses the new ci -j
|
|
|
|
|
|
;;; option, failing with message "no such file or directory".
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; SCCS: will fail with error ut4.
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; This case is kind of nasty. Under RCS prior to version 5.6.4,
|
|
|
|
|
|
;;; VC may fail to detect the loss of previous version information.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;;
|
|
|
|
|
|
;;; 14. File looks like it's locked by the calling user and changed, but it's
|
|
|
|
|
|
;;; actually unlocked.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: self-race in window V, or the checkin happening
|
|
|
|
|
|
;;; during the window X of someone else's steal-lock or window S of
|
|
|
|
|
|
;;; someone else's revert.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: ci will fail with "no lock set by <user>".
|
|
|
|
|
|
;;; SCCS: delta will fail with error ut4.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 15. File looks like it's locked by the calling user and changed, but it's
|
|
|
|
|
|
;;; actually locked by the calling user and unchanged.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: another self-race --- a whole checkin/checkout
|
|
|
|
|
|
;;; sequence by the calling user would have to land in window R.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; SCCS: checks in a redundant delta and leaves the file unlocked as usual.
|
|
|
|
|
|
;;; RCS: reverts to the file state as of the second user's checkin, leaving
|
|
|
|
|
|
;;; the file unlocked.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; It is theoretically possible that work could be lost under RCS.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 16. File looks like it's locked by the calling user and changed, but it's
|
|
|
|
|
|
;;; actually locked by a different user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: ci error: no lock set by <user>
|
|
|
|
|
|
;;; SCCS: unget will fail with error un2
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; We can pass these errors up to the user.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Apparent state E ---
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 17. File looks like it's locked by some other user, but it's actually
|
|
|
|
|
|
;;; unregistered.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; As case 13.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 18. File looks like it's locked by some other user, but it's actually
|
|
|
|
|
|
;;; unlocked.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: someone released a lock during window W.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; RCS: The calling user will get the lock on the file.
|
|
|
|
|
|
;;; SCCS: unget -n will fail with cm4.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Either of these consequences will be OK.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 19. File looks like it's locked by some other user, but it's actually
|
|
|
|
|
|
;;; locked by the calling user and unchanged.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Potential cause: the other user relinquishing a lock followed by
|
|
|
|
|
|
;;; a self-race, both in window W.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Under both RCS and SCCS, both unlock and lock will succeed, making
|
|
|
|
|
|
;;; the sequence a no-op.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; 20. File looks like it's locked by some other user, but it's actually
|
|
|
|
|
|
;;; locked by the calling user and changed.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; As case 19.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; PROBLEM CASES:
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; In order of decreasing severity:
|
|
|
|
|
|
;;;
|
(vc-directory): Kill existing vc-dired buffers for this directory.
Provide a better header. Corrected the check whether any files were
found at all (don't display a listing in this case). Under CVS,
display cvs-status rather than vc-locking-user.
(vc-next-action-on-file): When doing a check-in in vc-dired-mode, find
the file in another window.
(vc-next-action-dired): Update dired listing while processing the
files.
(vc-next-action): Check whether a check-in comment is really needed
for this mass operation.
(vc-checkout): Resynch the buffer, even if it's not current.
(vc-dired-state-info, vc-dired-update-line): New functions.
(vc-dired-prefix-map): Added local definition for `g' and `='.
(vc-dired-reformat-line): Simplified. Erase the hardlink count from
the listing, because it doesn't relate to version control.
(vc-rcs-release, vc-cvs-release, vc-sccs-release): New variables, may
be set by the user.
(vc-backend-release, vc-release-greater-or-equal, vc-backend-release-p):
New Functions.
(vc-do-command): Allow FILE to be nil.
(vc-backend-checkin): When creating a branch, don't bother to unlock
the old version if this is RCS 5.6.2 or higher.
(vc-next-action-on-file): Allow lock-stealing only if RCS 5.6.2 or
higher.
(vc-backend-admin, vc-backend-checkin): If available, use ci -i and -j.
Updated Developer's Notes.
1995-08-25 18:30:11 +00:00
|
|
|
|
;;; Cases 11 and 15 are the only ones that potentially lose work.
|
1992-07-31 22:24:03 +00:00
|
|
|
|
;;; They would require a self-race for this to happen.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Case 13 in RCS loses information about previous deltas, retaining
|
|
|
|
|
|
;;; only the information in the current workfile. This can only happen
|
|
|
|
|
|
;;; if the master file gets nuked in window P.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Case 3 in RCS and case 15 under SCCS insert a redundant delta with
|
|
|
|
|
|
;;; no change comment in the master. This would require a self-race in
|
|
|
|
|
|
;;; window P or R respectively.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Cases 2, 10, 19 and 20 do extra work, but make no changes.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Unfortunately, it appears to me that no recovery is possible in these
|
|
|
|
|
|
;;; cases. They don't yield error messages, so there's no way to tell that
|
|
|
|
|
|
;;; a race condition has occurred.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; All other cases don't change either the workfile or the master, and
|
|
|
|
|
|
;;; trigger command errors which the user will see.
|
|
|
|
|
|
;;;
|
|
|
|
|
|
;;; Thus, there is no explicit recovery code.
|
|
|
|
|
|
|
|
|
|
|
|
;;; vc.el ends here
|