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

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"