[Bug: 21.4.18] can't check in SCCS file with new vc

[Ville Skyttä]

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"

-------------- next part --------------
A non-text attachment was scrubbed...
Name: vc-sccs-replace-match.patch
Type: text/x-diff
Size: 664 bytes
Desc: not available
Url : http://lists.xemacs.org/pipermail/xemacs-beta/attachments/20070922/f7d2480b/vc-sccs-replace-match.patch