vc-checkin: with headers always begin of buffer (rcs)

[Uwe Brauer]

Julian B
> ; quick hack to make checkout keep point roughly in place
> (defun vc-checkout (file&optional writable rev)
>    "Retrieve a copy of the latest version of the given file."
>    ;; If ftp is on this system and the name matches the ange-ftp format
>    ;; for a remote file, the user is trying something that won't work.
>    (if (and (string-match "^/[^/:]+:" file) (vc-find-binary "ftp"))
>        (error "Sorry, you can't check out files over FTP"))
>    (let ((p (point)))
>      (vc-backend-checkout file writable rev)
>      (vc-resynch-buffer file t t)
>      (goto-char p)))
>    
hm that really works for you with recent vc versions? I am asking since
vc-backend-checkout is not defined in the vc versions I use.


Uwe