[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: NTemacs doesn't understand RCS
From: |
Scott Thibault |
Subject: |
Re: NTemacs doesn't understand RCS |
Date: |
9 Nov 2004 12:29:12 -0800 |
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))