657 |
`vc-checkout-model' to their correct values, based on the master |
`vc-checkout-model' to their correct values, based on the master |
658 |
file." |
file." |
659 |
(with-temp-buffer |
(with-temp-buffer |
660 |
(vc-insert-file (vc-name file) "^[0-9]") |
(if (or (not (vc-insert-file (vc-name file) "^[0-9]")) |
661 |
|
(progn (goto-char (point-min)) |
662 |
|
(not (looking-at "^head[ \t\n]+[^;]+;$")))) |
663 |
|
(error "File %s is not an RCS master file" (vc-name file))) |
664 |
(let ((workfile-is-latest nil) |
(let ((workfile-is-latest nil) |
665 |
(default-branch (vc-parse-buffer "^branch[ \t\n]+\\([^;]*\\);" 1))) |
(default-branch (vc-parse-buffer "^branch[ \t\n]+\\([^;]*\\);" 1))) |
666 |
(vc-file-setprop file 'vc-rcs-default-branch default-branch) |
(vc-file-setprop file 'vc-rcs-default-branch default-branch) |