vc-checkin: with headers always begin of buffer (rcs)
oub at mat.ucm.es
Mon Sep 26 16:40:35 EDT 2011
> ; 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.
More information about the XEmacs-Beta