# HG changeset patch # User Andr Spiegel # Date 1088753181 0 # Node ID b9c0ed2a46bdb1fdc7c8acf20861220dff3e6b74 # Parent 7d126dcf72aa9dc7364dc251f99172d9e953d21c (vc-rcs-checkout-model): Look at the version headers only if vc-consult-headers is non-nil. diff -r 7d126dcf72aa -r b9c0ed2a46bd lisp/vc-rcs.el --- a/lisp/vc-rcs.el Fri Jul 02 04:38:51 2004 +0000 +++ b/lisp/vc-rcs.el Fri Jul 02 07:26:21 2004 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-rcs.el,v 1.38 2003/09/01 15:45:17 miles Exp $ +;; $Id: vc-rcs.el,v 1.39 2004/03/21 15:46:23 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -198,10 +198,14 @@ (defun vc-rcs-checkout-model (file) "RCS-specific version of `vc-checkout-model'." - (vc-rcs-consult-headers file) - (or (vc-file-getprop file 'vc-checkout-model) - (progn (vc-rcs-fetch-master-state file) - (vc-file-getprop file 'vc-checkout-model)))) + (let (result) + (when vc-consult-headers + (vc-file-setprop file 'vc-checkout-model nil) + (vc-rcs-consult-headers file) + (setq result (vc-file-getprop file 'vc-checkout-model))) + (or result + (progn (vc-rcs-fetch-master-state file) + (vc-file-getprop file 'vc-checkout-model))))) (defun vc-rcs-workfile-unchanged-p (file) "RCS-specific implementation of vc-workfile-unchanged-p."