procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-rcs-state): Call vc-workfile-unchanged-p only here, and

Browse source 
differentiate according to checkout model.
(vc-rcs-fetch-master-state): Don't call vc-workfile-unchanged-p, since
this function is only concerned with master state.
This commit is contained in:
André Spiegel 2000-11-19 09:46:04 +00:00
parent e5a9dabf39
commit 036f45faec
1 changed files with 5 additions and 8 deletions

13
lisp/vc-rcs.el
View file

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits) ;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-rcs.el,v 1.11 2000/10/03 12:08:40 spiegel Exp $ ;; $Id: vc-rcs.el,v 1.12 2000/11/16 18:13:16 spiegel Exp $
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -126,7 +126,9 @@ For a description of possible values, see `vc-check-master-templates'."
(if (eq state 'up-to-date) (if (eq state 'up-to-date)
(if (vc-workfile-unchanged-p file) (if (vc-workfile-unchanged-p file)
'up-to-date 'up-to-date
'unlocked-changes) (if (eq (vc-checkout-model file) 'locking)
'unlocked-changes
'edited))
state))) state)))
(defun vc-rcs-state-heuristic (file) (defun vc-rcs-state-heuristic (file)
@ -688,12 +690,7 @@ file."
(if (or workfile-is-latest (if (or workfile-is-latest
(vc-rcs-latest-on-branch-p file workfile-version)) (vc-rcs-latest-on-branch-p file workfile-version))
;; workfile version is latest on branch ;; workfile version is latest on branch
(if (eq (vc-checkout-model file) 'locking) 'up-to-date
'up-to-date
(require 'vc)
(if (vc-workfile-unchanged-p file)
'up-to-date
'edited))
;; workfile version is not latest on branch ;; workfile version is not latest on branch
'needs-patch)) 'needs-patch))
;; locked by the calling user ;; locked by the calling user