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." |