Re: NTemacs doesn't understand RCS

[thibault@gmvhdl.com (Scott Thibault)]

I'm still getting the same message, so I guess it is not working.  I
put it in my .emacs file and just to be sure copied it to *scratch*
and did an eval-buffer.  What is vc-rcs-master-templates?  The look
like they should be file specs.  Is there a way to debug this code?

Thanks
--Scott

Kevin Rodgers <ihs_4664@yahoo.com> wrote in message news:<2uvbniF2f1357U1@uni-berlin.de>...
> Scott Thibault wrote:
>  > I'm using a version of RCS that allows you to create a text file
>  > called RCS that contains a pointer to the RCS directory rather than a
>  > real directory - a work around for not having links on Windows.
>  >
>  > So, the question is how do I get emacs to understand these link files?
>  >  Out-of-the-box, when I try C-x v v, the ci command fails with the
>  > message \src\RCS\file.c,v already exists.  I assume because emacs
>  > doesn't recognize the RCS "link" and tries to do a ci -i.
> 
> Try this (untested!):
> 
> (defun gmvhdl-rcs-template (directory file)
>    "Return non-nil if FILE in DIRECTORY is under RCS control."
>    (if (file-regular-p (expand-file-name "RCS" directory))
>        (let ((rcs-directory
>               (with-temp-buffer
>                 (insert-file-contents (expand-file-name "RCS" directory))
>                 (buffer-string))))
>          ;; in case rcs-directory is relative:
>          (setq rcs-directory
>                (expand-file-name rcs-directory directory))
>          ;; check rcs-directory/FILE against the default templates:
>          (if (file-directory-p rcs-directory)
>              (vc-check-master-templates (expand-file-name file 
> rcs-directory)
>                                         (remq 'gmvhdl-rcs-template
>                                               vc-rcs-master-templates))))))
> 
> (setq vc-rcs-master-templates
>        (cons 'gmvhdl-rcs-template vc-rcs-master-templates))