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"
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta