mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(vc-rcs-state): Before calling vc-workfile-unchanged-p, require vc.

Browse source
This commit is contained in:
André Spiegel 2000-11-20 14:14:25 +00:00
parent c776f30b14
commit ceaa99745a
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/vc-rcs.el
View file

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-rcs.el,v 1.12 2000/11/16 18:13:16 spiegel Exp $
;; $Id: vc-rcs.el,v 1.13 2000/11/19 09:46:04 spiegel Exp $
;; This file is part of GNU Emacs.
@ -123,13 +123,14 @@ For a description of possible values, see `vc-check-master-templates'."
(vc-rcs-fetch-master-state file
(vc-file-getprop file
'vc-workfile-version))))
(if (eq state 'up-to-date)
(if (vc-workfile-unchanged-p file)
'up-to-date
(if (eq (vc-checkout-model file) 'locking)
'unlocked-changes
'edited))
state)))
(if (not (eq state 'up-to-date))
state
(require 'vc)
(if (vc-workfile-unchanged-p file)
'up-to-date
(if (eq (vc-checkout-model file) 'locking)
'unlocked-changes
'edited)))))
(defun vc-rcs-state-heuristic (file)
"State heuristic for RCS."