[C pkgs (vc)]: [Bug: 21.4.18] can't check in SCCS file with new vc

[Ville Skyttä]

COMMIT

On Saturday 22 September 2007, Ville Skyttä wrote:
> On Saturday 22 September 2007, Mike Kupfer wrote:
> > I have a file that is under SCCS control and checked out.  When I visit
> > it, the modeline indicates that the file is SCCS-controlled and checked
> > out.  If I try to check in the file using C-x v v, I get this error:
> >
> >     ERROR [SCCS/s.build-intel]: writable `build-intel' exists (ge4)
>
> [...]
>
> > I used edebug to see what vc-sccs-lock-file is doing.  "file" is
> > "/home/kupfer/src/lib.local/build-intel".  "master" becomes
> > "/home/kupfer/src/lib.local/SCCS/s.build-intel".  These both look okay.
> >
> > (replace-match "p." t t master 2) produces "p.".  Aha!
> >
> > It looks like the replace-match sexp needs help.
>
> Thanks for the analysis, Mike!  Actually, I don't think we can sanely use
> replace-match in this case at all.
>
> Could you test the attached patch - I don't have means to test actual SCCS
> nor do I know a thing about it, but with your test data:
>
> (let ((master "/home/kupfer/src/lib.local/SCCS/s.build-intel"))
>   (and
>    master
>    (string-match "\\(.*/\\)\\(s\\.\\)\\(.*\\)" master)
>    (concat (match-string 1 master) "p." (match-string 3 master))))
> "/home/kupfer/src/lib.local/SCCS/p.build-intel"

I've committed the mentioned patch.