/[emacs]/emacs/lisp/vc-rcs.el
ViewVC logotype

Diff of /emacs/lisp/vc-rcs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by spiegel, Sun Mar 21 15:46:23 2004 UTC revision 1.40 by spiegel, Fri Jul 2 07:26:21 2004 UTC
# Line 198  When VERSION is given, perform check for Line 198  When VERSION is given, perform check for
198    
199  (defun vc-rcs-checkout-model (file)  (defun vc-rcs-checkout-model (file)
200    "RCS-specific version of `vc-checkout-model'."    "RCS-specific version of `vc-checkout-model'."
201    (vc-rcs-consult-headers file)    (let (result)
202    (or (vc-file-getprop file 'vc-checkout-model)      (when vc-consult-headers
203        (progn (vc-rcs-fetch-master-state file)        (vc-file-setprop file 'vc-checkout-model nil)
204               (vc-file-getprop file 'vc-checkout-model))))        (vc-rcs-consult-headers file)
205          (setq result (vc-file-getprop file 'vc-checkout-model)))
206        (or result
207            (progn (vc-rcs-fetch-master-state file)
208                   (vc-file-getprop file 'vc-checkout-model)))))
209    
210  (defun vc-rcs-workfile-unchanged-p (file)  (defun vc-rcs-workfile-unchanged-p (file)
211    "RCS-specific implementation of vc-workfile-unchanged-p."    "RCS-specific implementation of vc-workfile-unchanged-p."

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26