605 |
`vc-checkout-model' to their correct values, based on the master |
`vc-checkout-model' to their correct values, based on the master |
606 |
file." |
file." |
607 |
(with-temp-buffer |
(with-temp-buffer |
608 |
(vc-insert-file (vc-name file) "^[0-9]") |
(if (or (not (vc-insert-file (vc-name file) "^[0-9]")) |
609 |
|
(progn (goto-char (point-min)) |
610 |
|
(not (looking-at "^head[ \t\n]+[^;]+;$")))) |
611 |
|
(error "File %s is not an RCS master file" (vc-name file))) |
612 |
(let ((workfile-is-latest nil) |
(let ((workfile-is-latest nil) |
613 |
(default-branch (vc-parse-buffer "^branch[ \t\n]+\\([^;]*\\);" 1))) |
(default-branch (vc-parse-buffer "^branch[ \t\n]+\\([^;]*\\);" 1))) |
614 |
(vc-file-setprop file 'vc-rcs-default-branch default-branch) |
(vc-file-setprop file 'vc-rcs-default-branch default-branch) |