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

; 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)))