X-Loop: bug-gnu-emacs@HIDDEN
Subject: bug#5665: 23.1; VC commands fail when the version control back end is SCCS
Resent-From: "Ron Mitchell" <ron@HIDDEN>
Original-Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Resent-To: owner <at> debbugs.gnu.org
Resent-CC: bug-gnu-emacs@HIDDEN
Resent-Date: Mon, 01 Mar 2010 19:25:02 +0000
Resent-Message-ID: <handler.5665.B.126747150129349 <at> debbugs.gnu.org>
Resent-Sender: bug-gnu-emacs@HIDDEN
X-Emacs-PR-Message: report 5665
X-Emacs-PR-Package: emacs
X-Emacs-PR-Keywords:
To: 5665 <at> debbugs.gnu.org
X-Debbugs-Original-To: bug-gnu-emacs@HIDDEN
Received: via spool by submit <at> debbugs.gnu.org id=B.126747150129349
(code B ref -1); Mon, 01 Mar 2010 19:25:02 +0000
Received: (at submit) by debbugs.gnu.org; 1 Mar 2010 19:25:01 +0000
Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1NmBEi-0007dI-CH
for submit <at> debbugs.gnu.org; Mon, 01 Mar 2010 14:25:01 -0500
Received: from fencepost.gnu.org ([140.186.70.10])
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <ron@HIDDEN>) id 1NmBAx-0007aq-7A
for submit <at> debbugs.gnu.org; Mon, 01 Mar 2010 14:21:08 -0500
Received: from mail.gnu.org ([199.232.76.166]:54661 helo=mx10.gnu.org)
by fencepost.gnu.org with esmtp (Exim 4.69)
(envelope-from <ron@HIDDEN>) id 1NmBAs-00064R-QS
for submit <at> debbugs.gnu.org; Mon, 01 Mar 2010 14:21:03 -0500
Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim
4.60) (envelope-from <ron@HIDDEN>) id 1NmBAn-0005Cg-VG
for submit <at> debbugs.gnu.org; Mon, 01 Mar 2010 14:21:02 -0500
X-Spam-Checker-Version: SpamAssassin 3.1.0 (2005-09-13) on monty-python
X-Spam-Level:
X-Spam-Status: No, score=-2.6 required=5.0 tests=BAYES_00,UNPARSEABLE_RELAY
autolearn=ham version=3.1.0
Received: from lists.gnu.org ([199.232.76.165]:53021)
by monty-python.gnu.org with esmtps
(TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60)
(envelope-from <ron@HIDDEN>) id 1NmBAn-0005Cc-Oj
for submit <at> debbugs.gnu.org; Mon, 01 Mar 2010 14:20:57 -0500
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
id 1NmBAn-0001gJ-AB
for bug-gnu-emacs@HIDDEN; Mon, 01 Mar 2010 14:20:57 -0500
Received: from [140.186.70.92] (port=34751 helo=eggs.gnu.org)
by lists.gnu.org with esmtp (Exim 4.43) id 1NmBAl-0001dt-23
for bug-gnu-emacs@HIDDEN; Mon, 01 Mar 2010 14:20:56 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
(envelope-from <ron@HIDDEN>) id 1NmBAi-0002do-Go
for bug-gnu-emacs@HIDDEN; Mon, 01 Mar 2010 14:20:54 -0500
Received: from out1.smtp.messagingengine.com ([66.111.4.25]:35425)
by eggs.gnu.org with esmtp (Exim 4.69)
(envelope-from <ron@HIDDEN>) id 1NmBAi-0002dg-CK
for bug-gnu-emacs@HIDDEN; Mon, 01 Mar 2010 14:20:52 -0500
Received: from compute2.internal (compute2.internal [10.202.2.42])
by gateway1.messagingengine.com (Postfix) with ESMTP id 6213CE2E49
for <bug-gnu-emacs@HIDDEN>; Mon, 1 Mar 2010 14:13:07 -0500 (EST)
Received: from web6.messagingengine.com ([10.202.2.215])
by compute2.internal (MEProxy); Mon, 01 Mar 2010 14:13:07 -0500
DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=messagingengine.com;
h=message-id:from:to:mime-version:content-transfer-encoding:content-type:subject:date;
s=smtpout; bh=MmbauAOGct1ujJz2Z8owDEEuqrc=;
b=tQPInhBv9iK5j2GJd50UifBZCMm5hbOi0oakF+BgQGpjXyMxCaZLmuQbztBE5s1maAyW0z3gaN+smtarjjw+5yeUAMriCfEIzlBf6TjM2MFZzqz1tOiBJrpMyE0m39F4Gf7qZ4nE7h2n4gyzkScoqv0Zh8Lwv5bJ7gw4CY/Z5u4=
Received: by web6.messagingengine.com (Postfix, from userid 99)
id 3D520E2A4E; Mon, 1 Mar 2010 14:13:07 -0500 (EST)
Message-Id: <1267470787.28800.1362528989@HIDDEN>
X-Sasl-Enc: XJiqLA7MFxisER6YrXNWnbITpt3SP6Yfs//ewgLT8OZH 1267470787
From: "Ron Mitchell" <ron@HIDDEN>
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain; charset="UTF-8"
X-Mailer: MessagingEngine.com Webmail Interface
Date: Mon, 01 Mar 2010 19:13:07 +0000
X-detected-operating-system: by eggs.gnu.org: Genre and OS details not
recognized.
X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6,
seldom 2.4 (older, 4)
X-Spam-Score: -6.6 (------)
X-Mailman-Approved-At: Mon, 01 Mar 2010 14:24:59 -0500
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.11
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/pipermail/debbugs-submit>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
X-Spam-Score: -6.6 (------)
I can't send mail from the host system, so I used report-emacs-bug to
generate a mail which I've copied below.
From: "RON MITCHELL (UNIVERSE USER)" <rmitchel@tntcg004>
To: bug-gnu-emacs@HIDDEN
Subject: 23.1; VC commands fail when the version control back end is
SCCS
--text follows this line--
I'm running emacs on HP-UX.=20=20
Our SCCS repository is under location /common, as set in the environment
variable PROJECTDIR:
$ env | grep PROJECTDIR
PROJECTDIR=3D/common
$=20
I create a file called 'myfile' in the current directory. It is not yet
registered to SCCS.
I visit the file.
Attempt to register the file with C-x v v
-----------------------------------------
It fails. There is an error message shown in the *vc* buffer:=20=20
ERROR: missing file arg (cm3)
Backtrace:
Debugger entered--Lisp error: (error "Running sccs admin -r1.1 -fb
-imyfile -y ../../common/SCCS/s.myfile...FAILED (status 1)")
signal(error ("Running sccs admin -r1.1 -fb -imyfile -y
../../common/SCCS/s.myfile...FAILED (status 1)"))
error("Running %s...FAILED (%s)" "sccs admin -r1.1 -fb -imyfile -y
../../common/SCCS/s.myfile" "status 1")
vc-do-command("*vc*" 0 "sccs" "/common/SCCS/s.myfile" "admin" "-r1.1"
"-fb" "-imyfile" "-y")
apply(vc-do-command "*vc*" 0 "sccs" "/common/SCCS/s.myfile" "admin"
("-r1.1" "-fb" "-imyfile" "-y"))
vc-sccs-do-command(nil 0 "admin" "/common/SCCS/s.myfile" "-r1.1" "-fb"
"-imyfile" "-y")
apply(vc-sccs-do-command nil 0 "admin" "/common/SCCS/s.myfile" "-r1.1"
"-fb" "-imyfile" "-y" nil)
(let ((vc-name ...)) (apply (quote vc-sccs-do-command) nil 0 "admin"
vc-name (and rev ... ...) "-fb" (concat "-i" ...) (and comment ...)
(vc-switches ... ...)))
(let* ((dirname ...) (basename ...) (project-file ...)) (let (...)
(apply ... nil 0 "admin" vc-name ... "-fb" ... ... ...)) (delete-file
file) (if vc-keep-workfiles (vc-sccs-do-command nil 0 "get" ...)))
(while --cl-dolist-temp-- (setq file (car --cl-dolist-temp--)) (let*
(... ... ...) (let ... ...) (delete-file file) (if vc-keep-workfiles
...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- files) file) (while --cl-dolist-temp-- (setq
file ...) (let* ... ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... file) (while
--cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file) (while --cl-dolist-temp-- ... ... ...)
nil))
(dolist (file files) (let* (... ... ...) (let ... ...) (delete-file
file) (if vc-keep-workfiles ...)))
vc-sccs-register(("/home/rmitchel/myfile") "1.1" "")
apply(vc-sccs-register (("/home/rmitchel/myfile") "1.1" ""))
vc-call-backend(SCCS register ("/home/rmitchel/myfile") "1.1" "")
#[(G54700 G54701 files rev comment) "=C3=86=C3=87=08J\"=CB=86=C3=88=C3=89=
=08J\"=CB=86=C3=8A J=C3=8B=08J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=
=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"]
6](--files-- --backend-- ("/home/rmitchel/myfile") "1.1" "")
apply(#[(G54700 G54701 files rev comment) "=C3=86=C3=87=08J\"=CB=86=C3=88=
=C3=89=08J\"=CB=86=C3=8A=20=20
J=C3=8B=08J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"] 6]
--files-- --backend-- (("/home/rmitchel/myfile") "1.1" ""))
(lambda (&rest --cl-rest--) (apply #[... "=C3=86=C3=87=08J\"=CB=86=C3=88=
=C3=89=08J\"=CB=86=C3=8A=20=20=20
J=C3=8B=08J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"] 6]
(quote --files--) (quote --backend--)
--cl-rest--))(("/home/rmitchel/myfile") "1.1" "")
vc-finish-logentry(t)
vc-start-logentry(("/home/rmitchel/myfile") "1.1" t nil "Enter initial
comment." "*VC-log*" (lambda (&rest --cl-rest--) (apply #[...
"=C3=86=C3=87=08J\"=CB=86=C3=88=C3=89=08J\"=CB=86=C3=8A J=C3=8B=08=
J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"] 6]
(quote --files--) (quote --backend--) --cl-rest--)))
vc-register(nil (SCCS ("/home/rmitchel/myfile")
("/home/rmitchel/myfile") unregistered nil))
vc-next-action(nil)
call-interactively(vc-next-action nil nil)
Outside emacs I check in the file manually to SCCS, using "sccs create
myfile".
Re-visit the file in emacs. Do C-x v l (vc-print-log)
------------------------------------------------------
Fails.
In buffer *vc-change-log*:
ERROR: missing file arg (cm3)
Backtrace:
Debugger entered--Lisp error: (error "Running sccs prs
../../common/SCCS/s.myfile...FAILED (status 1)")
signal(error ("Running sccs prs ../../common/SCCS/s.myfile...FAILED
(status 1)"))
error("Running %s...FAILED (%s)" "sccs prs ../../common/SCCS/s.myfile"
"status 1")
vc-do-command("*vc-change-log*" 0 "sccs" ("/common/SCCS/s.myfile")
"prs")
apply(vc-do-command "*vc-change-log*" 0 "sccs"
("/common/SCCS/s.myfile") "prs" nil)
vc-sccs-do-command("*vc-change-log*" 0 "prs"
("/common/SCCS/s.myfile"))
vc-sccs-print-log(("/home/rmitchel/myfile") "*vc-change-log*")
apply(vc-sccs-print-log (("/home/rmitchel/myfile") "*vc-change-log*"))
vc-call-backend(SCCS print-log ("/home/rmitchel/myfile")
"*vc-change-log*")
vc-print-log()
call-interactively(vc-print-log nil nil)
recursive-edit()
byte-code("=C3=86=10 @=C3=87=3D=C6=92! =C3=88=C3=89=C3=8A\"=CB=86=C3=
=8B=C3=89!=E2=80=B0=1AA@)=C2=A2=C3=8C=3D=C6=92! =C3=88=C3=8D=C3=8A\"=CB=86=
=C3=8E=0B!=CB=86=C3=8F =CB=86=C3=90 !=CB=86\f=C6=92d
=C3=91ed\"
V=C6=92W eb=CB=86=C3=92
=C2=A5y=CB=86`=1E=1Bdb=CB=86=C3=92
=C2=A5
Zy=CB=86=0E=1B`|=CB=86)=C3=93c=CB=86eb=CB=86=C3=94=C3=95=C3=96 \"=CB=86=C3=
=97=C3=86!=CB=86=C3=94=C3=98!=CB=86=C3=99=C3=8A=1E=1C=1E=1D=C3=94=C3=98!=CB=
=86=C5=A0=C3=9A =CB=86+=C3=99=E2=80=A1" [unread-command-char
debugger-args x debugger-buffer noninteractive debugger-batch-max-lines
-1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer
debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s"
buffer-string kill-emacs "" nil recursive-edit middlestart
buffer-read-only standard-output] 4)
debug(error (error "Running sccs admin -r1.1 -fb -imyfile -y
../../common/SCCS/s.myfile...FAILED (status 1)"))
signal(error ("Running sccs admin -r1.1 -fb -imyfile -y
../../common/SCCS/s.myfile...FAILED (status 1)"))
error("Running %s...FAILED (%s)" "sccs admin -r1.1 -fb -imyfile -y
../../common/SCCS/s.myfile" "status 1")
vc-do-command("*vc*" 0 "sccs" "/common/SCCS/s.myfile" "admin" "-r1.1"
"-fb" "-imyfile" "-y")
apply(vc-do-command "*vc*" 0 "sccs" "/common/SCCS/s.myfile" "admin"
("-r1.1" "-fb" "-imyfile" "-y"))
vc-sccs-do-command(nil 0 "admin" "/common/SCCS/s.myfile" "-r1.1" "-fb"
"-imyfile" "-y")
apply(vc-sccs-do-command nil 0 "admin" "/common/SCCS/s.myfile" "-r1.1"
"-fb" "-imyfile" "-y" nil)
(let ((vc-name ...)) (apply (quote vc-sccs-do-command) nil 0 "admin"
vc-name (and rev ... ...) "-fb" (concat "-i" ...) (and comment ...)
(vc-switches ... ...)))
(let* ((dirname ...) (basename ...) (project-file ...)) (let (...)
(apply ... nil 0 "admin" vc-name ... "-fb" ... ... ...)) (delete-file
file) (if vc-keep-workfiles (vc-sccs-do-command nil 0 "get" ...)))
(while --cl-dolist-temp-- (setq file (car --cl-dolist-temp--)) (let*
(... ... ...) (let ... ...) (delete-file file) (if vc-keep-workfiles
...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- files) file) (while --cl-dolist-temp-- (setq
file ...) (let* ... ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... file) (while
--cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file) (while --cl-dolist-temp-- ... ... ...)
nil))
(dolist (file files) (let* (... ... ...) (let ... ...) (delete-file
file) (if vc-keep-workfiles ...)))
vc-sccs-register(("/home/rmitchel/myfile") "1.1" "")
apply(vc-sccs-register (("/home/rmitchel/myfile") "1.1" ""))
vc-call-backend(SCCS register ("/home/rmitchel/myfile") "1.1" "")
#[(G54700 G54701 files rev comment) "=C3=86=C3=87=08J\"=CB=86=C3=88=C3=89=
=08J\"=CB=86=C3=8A J=C3=8B=08J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=
=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"]
6](--files-- --backend-- ("/home/rmitchel/myfile") "1.1" "")
apply(#[(G54700 G54701 files rev comment) "=C3=86=C3=87=08J\"=CB=86=C3=88=
=C3=89=08J\"=CB=86=C3=8A=20=20
J=C3=8B=08J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"] 6]
--files-- --backend-- (("/home/rmitchel/myfile") "1.1" ""))
(lambda (&rest --cl-rest--) (apply #[... "=C3=86=C3=87=08J\"=CB=86=C3=88=
=C3=89=08J\"=CB=86=C3=8A=20=20=20
J=C3=8B=08J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"] 6]
(quote --files--) (quote --backend--)
--cl-rest--))(("/home/rmitchel/myfile") "1.1" "")
vc-finish-logentry(t)
vc-start-logentry(("/home/rmitchel/myfile") "1.1" t nil "Enter initial
comment." "*VC-log*" (lambda (&rest --cl-rest--) (apply #[...
"=C3=86=C3=87=08J\"=CB=86=C3=88=C3=89=08J\"=CB=86=C3=8A J=C3=8B=08=
J\n=0B%=CB=86=08J=C3=8C=1C=E2=80=B0=1D=C6=920=20
@=14=C3=8D\f=C3=8E J#=CB=86
A=E2=80=B0=15=E2=80=9E=1F *=C3=86=C3=8F=08J\"=E2=80=A1" [G54700 G54701 rev =
comment file --cl-dolist-temp--
message "Registering %s... " mapc vc-file-clearprops vc-call-backend
register nil vc-file-setprop vc-backend "Registering %s... done"] 6]
(quote --files--) (quote --backend--) --cl-rest--)))
vc-register(nil (SCCS ("/home/rmitchel/myfile")
("/home/rmitchel/myfile") unregistered nil))
vc-next-action(nil)
call-interactively(vc-next-action nil nil)
Attempt to check out the file for editing with C-x v v
------------------------------------------------------
It fails.
In buffer *vc*:
ERROR: missing file arg (cm3)
Backtrace:
Debugger entered--Lisp error: (error "Running sccs get -e=20
../../common/SCCS/s.myfile...FAILED (status 1)")
signal(error ("Running sccs get -e=20
../../common/SCCS/s.myfile...FAILED (status 1)"))
error("Running %s...FAILED (%s)" "sccs get -e=20
../../common/SCCS/s.myfile" "status 1")
vc-do-command("*vc*" 0 "sccs" "/common/SCCS/s.myfile" "get" "-e" nil)
apply(vc-do-command "*vc*" 0 "sccs" "/common/SCCS/s.myfile" "get"
("-e" nil))
vc-sccs-do-command(nil 0 "get" "/common/SCCS/s.myfile" "-e" nil)
apply(vc-sccs-do-command nil 0 "get" "/common/SCCS/s.myfile" "-e" nil
nil)
(save-excursion (setq default-directory (file-name-directory file))
(and rev (or ... ...) (setq rev nil)) (apply (quote
vc-sccs-do-command) nil 0 "get" (vc-name file) (if editable "-e") (and
rev ...) switches))
(let ((default-directory default-directory)) (save-excursion (setq
default-directory ...) (and rev ... ...) (apply ... nil 0 "get" ...
... ... switches)))
(save-excursion (if file-buffer (set-buffer file-buffer)) (setq
switches (vc-switches ... ...)) (let (...) (save-excursion ... ...
...)))
(let ((file-buffer ...) switches) (message "Checking out %s..." file)
(save-excursion (if file-buffer ...) (setq switches ...) (let ...
...)) (message "Checking out %s...done" file))
(if (file-directory-p file) (mapc (quote vc-sccs-checkout)
(vc-expand-dirs ...)) (let (... switches) (message "Checking out
%s..." file) (save-excursion ... ... ...) (message "Checking out
%s...done" file)))
vc-sccs-checkout("/home/rmitchel/myfile" t nil)
apply(vc-sccs-checkout ("/home/rmitchel/myfile" t nil))
vc-call-backend(SCCS checkout "/home/rmitchel/myfile" t nil)
byte-code("=C3=84=08=C3=85 \n=0B%=E2=80=A1" [backend file writable rev =
vc-call-backend
checkout] 6)
vc-checkout("/home/rmitchel/myfile" t)
vc-next-action(nil)
call-interactively(vc-next-action nil nil)
Outside emacs check out the file manually (sccs edit myfile). Make a
change.=20=20
Back in emacs attempt to check back in with C-x v v
---------------------------------------------------
It fails.
In buffer *vc*:
ERROR: missing file arg (cm3)
Backtrace:
Debugger entered--Lisp error: (error #("Running sccs delta -ySecond
version
../../common/SCCS/s.myfile...FAILED (status 1)" 22 36 (fontified t) 36
37 (fontified t)))
signal(error (#("Running sccs delta -ySecond version\n
../../common/SCCS/s.myfile...FAILED (status 1)" 22 36 (fontified t) 36
37 (fontified t))))
error("Running %s...FAILED (%s)" #("sccs delta -ySecond version\n
../../common/SCCS/s.myfile" 14 28 (fontified t) 28 29 (fontified t))
"status 1")
vc-do-command("*vc*" 0 "sccs" "/common/SCCS/s.myfile" "delta" nil
#("-ySecond version\n" 2 16 (fontified t) 16 17 (fontified t)))
apply(vc-do-command "*vc*" 0 "sccs" "/common/SCCS/s.myfile" "delta"
(nil #("-ySecond version\n" 2 16 (fontified t) 16 17 (fontified t))))
vc-sccs-do-command(nil 0 "delta" "/common/SCCS/s.myfile" nil
#("-ySecond version\n" 2 16 (fontified t) 16 17 (fontified t)))
apply(vc-sccs-do-command nil 0 "delta" "/common/SCCS/s.myfile" nil
#("-ySecond version\n" 2 16 (fontified t) 16 17 (fontified t)) nil)
(while --cl-dolist-temp-- (setq file (car --cl-dolist-temp--)) (apply
(quote vc-sccs-do-command) nil 0 "delta" (vc-name file) (if rev ...)
(concat "-y" comment) (vc-switches ... ...)) (if vc-keep-workfiles
(vc-sccs-do-command nil 0 "get" ...)) (setq --cl-dolist-temp-- (cdr
--cl-dolist-temp--)))
(let ((--cl-dolist-temp-- ...) file) (while --cl-dolist-temp-- (setq
file ...) (apply ... nil 0 "delta" ... ... ... ...) (if
vc-keep-workfiles ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... file) (while
--cl-dolist-temp-- ... ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file) (while --cl-dolist-temp-- ... ... ... ...)
nil))
(dolist (file (vc-expand-dirs files)) (apply (quote
vc-sccs-do-command) nil 0 "delta" (vc-name file) (if rev ...) (concat
"-y" comment) (vc-switches ... ...)) (if vc-keep-workfiles
(vc-sccs-do-command nil 0 "get" ...)))
vc-sccs-checkin(("/home/rmitchel/myfile") nil #("Second version\n" 0
14 (fontified t) 14 15 (fontified t)))
apply(vc-sccs-checkin (("/home/rmitchel/myfile") nil #("Second
version\n" 0 14 (fontified t) 14 15 (fontified t))))
vc-call-backend(SCCS checkin ("/home/rmitchel/myfile") nil #("Second
version\n" 0 14 (fontified t) 14 15 (fontified t)))
#[(G54702 files rev comment) "=C3=86=C3=87=C3=88=08!\"=CB=86 =C6=92=
=12 =C3=89=C3=8A \"=E2=80=9E=14 =C3=8B=11=C3=8CC=1A=C3=8D=0BJ=C3=8E=08\f
%=CB=86=C3=8F=C3=90=08\"=CB=86=08=C3=91=1D=E2=80=B0=1E=1A=C6=92v =0E=
=1A@=15=C3=92=C3=93=C3=94=C3=95
!8B=C3=96BB=C3=91=1E=1B=E2=80=B0=1E=1C=C6=92l =0E=1C@=E2=80=B0=16=1B@=E2=80=
=B0=1E=1D\n>=E2=80=9Eb =C3=97=C3=98
=0E=1E\"=0E=1D=0E=1BA#=CB=86)=0E=1CA=E2=80=B0=16=1C=E2=80=9EF *=0E=1AA=E2=
=80=B0=16=1A=E2=80=9E. +=C3=86=C3=99=C3=88=08!\"=E2=80=A1" [files comment
vc-touched-properties G54702 rev file message "Checking in %s..."
vc-delistify string-match "[^ \n ]" "*** empty log message ***" t
vc-call-backend checkin mapc vc-delete-automatic-version-backups nil
(vc-state . up-to-date) vc-checkout-time 5 file-attributes (...) put
intern "Checking in %s...done" --cl-dolist-temp-- setting
--cl-dolist-temp-- property vc-file-prop-obarray] 7](--backend--
("/home/rmitchel/myfile") nil #("Second version\n" 0 14 (fontified t) 14
15 (fontified t)))
apply(#[(G54702 files rev comment) "=C3=86=C3=87=C3=88=08!\"=CB=86 =
=C6=92=12 =C3=89=C3=8A \"=E2=80=9E=14
=C3=8B=11=C3=8CC=1A=C3=8D=0BJ=C3=8E=08\f %=CB=86=C3=8F=C3=90=08\"=CB=
=86=08=C3=91=1D=E2=80=B0=1E=1A=C6=92v =0E=1A@=15=C3=92=C3=93=C3=94=C3=95
!8B=C3=96BB=C3=91=1E=1B=E2=80=B0=1E=1C=C6=92l =0E=1C@=E2=80=B0=16=1B@=E2=80=
=B0=1E=1D\n>=E2=80=9Eb =C3=97=C3=98
=0E=1E\"=0E=1D=0E=1BA#=CB=86)=0E=1CA=E2=80=B0=16=1C=E2=80=9EF *=0E=1AA=E2=
=80=B0=16=1A=E2=80=9E. +=C3=86=C3=99=C3=88=08!\"=E2=80=A1" [files comment
vc-touched-properties G54702 rev file message "Checking in %s..."
vc-delistify string-match "[^ \n ]" "*** empty log message ***" t
vc-call-backend checkin mapc vc-delete-automatic-version-backups nil
(vc-state . up-to-date) vc-checkout-time 5 file-attributes (...) put
intern "Checking in %s...done" --cl-dolist-temp-- setting
--cl-dolist-temp-- property vc-file-prop-obarray] 7] --backend--
(("/home/rmitchel/myfile") nil #("Second version\n" 0 14 (fontified t)
14 15 (fontified t))))
(lambda (&rest --cl-rest--) (apply #[... "=C3=86=C3=87=C3=88=08!\"=CB=86 =
=C6=92=12 =C3=89=C3=8A \"=E2=80=9E=14
=C3=8B=11=C3=8CC=1A=C3=8D=0BJ=C3=8E=08\f %=CB=86=C3=8F=C3=90=08\"=CB=
=86=08=C3=91=1D=E2=80=B0=1E=1A=C6=92v =0E=1A@=15=C3=92=C3=93=C3=94=C3=95
!8B=C3=96BB=C3=91=1E=1B=E2=80=B0=1E=1C=C6=92l =0E=1C@=E2=80=B0=16=1B@=E2=80=
=B0=1E=1D\n>=E2=80=9Eb =C3=97=C3=98
=0E=1E\"=0E=1D=0E=1BA#=CB=86)=0E=1CA=E2=80=B0=16=1C=E2=80=9EF *=0E=1AA=E2=
=80=B0=16=1A=E2=80=9E. +=C3=86=C3=99=C3=88=08!\"=E2=80=A1" [files comment
vc-touched-properties G54702 rev file message "Checking in %s..."
vc-delistify string-match "[^ \n ]" "*** empty log message ***" t
vc-call-backend checkin mapc vc-delete-automatic-version-backups nil ...
vc-checkout-time 5 file-attributes ... put intern "Checking in
%s...done" --cl-dolist-temp-- setting --cl-dolist-temp-- property
vc-file-prop-obarray] 7] (quote --backend--)
--cl-rest--))(("/home/rmitchel/myfile") nil #("Second version\n" 0 14
(fontified t) 14 15 (fontified t)))
vc-finish-logentry()
call-interactively(vc-finish-logentry)
log-edit-done()
call-interactively(log-edit-done nil nil)
Attempt to show differences with C-x v =3D (vc-diff)
-------------------------------------------------
Fails.
In buffer *vc-diff*:
ERROR: missing file arg (cm3)
Backtrace:
Debugger entered--Lisp error: (error "Running vcdiff -q -b
../../common/SCCS/s.myfile...FAILED (status 2)")
signal(error ("Running vcdiff -q -b
../../common/SCCS/s.myfile...FAILED (status 2)"))
error("Running %s...FAILED (%s)" "vcdiff -q -b
../../common/SCCS/s.myfile" "status 2")
vc-do-command("*vc-diff*" 1 "vcdiff" ("/common/SCCS/s.myfile") "-q"
nil nil "-b")
apply(vc-do-command "*vc-diff*" 1 "vcdiff" ("/common/SCCS/s.myfile")
("-q" nil nil "-b"))
vc-sccs-diff(("/home/rmitchel/myfile") nil nil "*vc-diff*")
apply(vc-sccs-diff (("/home/rmitchel/myfile") nil nil "*vc-diff*"))
vc-call-backend(SCCS diff ("/home/rmitchel/myfile") nil nil
"*vc-diff*")
vc-diff-internal(t (SCCS ("/home/rmitchel/myfile")) nil nil t)
vc-diff(nil t)
call-interactively(vc-diff nil nil)
Preliminary Diagnosis
---------------------
It seems to me that emacs is attempting to run the SCCS front-end
command, sccs(1), against the repository filename,
'/common/SCCS/s.myfile', instead of against the plain filename
'myfile' as required.
In GNU Emacs 23.1.1 (hppa2.0w-hp-hpux11.11)
of 2010-02-22 on tntcg004
configured using `configure '--prefix=3D/develop/local' '--with-x=3Dno'
'CC=3Dcc''
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: nil
value of $XMODIFIERS: nil
locale-coding-system: nil
default-enable-multibyte-characters: t
Major mode: Text
Minor modes in effect:
shell-dirtrack-mode: t
desktop-save-mode: t
display-time-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
global-auto-composition-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
Recent input:
. RET C-n C-n C-n C-n C-n C-v C-n C-n C-n C-n C-n C-n=20
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n=20
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n=20
C-n C-n C-n C-n C-n C-n C-n C-n C-n RET RET C-x C-s=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p=20
C-p C-p C-p C-p C-p C-p C-p ESC x r e p o r t - e m=20
a c s - b u g RET
Recent messages:
Error during redisplay: (wrong-type-argument stringp nil) [45 times]
Auto-saving...done
Error during redisplay: (wrong-type-argument stringp nil) [165 times]
Auto-saving...done
Error during redisplay: (wrong-type-argument stringp nil) [187 times]
Auto-saving...done
Error during redisplay: (wrong-type-argument stringp nil) [41 times]
Saving file /home/rmitchel/working/emacs/bug-report.txt...
Wrote /home/rmitchel/working/emacs/bug-report.txt
Error during redisplay: (wrong-type-argument stringp nil) [434 times]
Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.427 (Entity 5.427) Content-Type: text/plain; charset=utf-8 X-Loop: bug-gnu-emacs@HIDDEN From: bug-gnu-emacs@HIDDEN (Emacs bug Tracking System) To: "Ron Mitchell" <ron@HIDDEN> Subject: bug#5665: Acknowledgement (23.1; VC commands fail when the version control back end is SCCS) Message-ID: <handler.5665.B.126747150129349.ack <at> debbugs.gnu.org> References: <1267470787.28800.1362528989@HIDDEN> X-Emacs-PR-Message: ack 5665 X-Emacs-PR-Package: emacs Reply-To: 5665 <at> debbugs.gnu.org Date: Mon, 01 Mar 2010 19:25:02 +0000 Thank you for filing a new bug report with Emacs. This is an automatically generated reply to let you know your message has been received. Your message is being forwarded to the package maintainers and other interested parties for their attention; they will reply in due course. Your message has been sent to the package maintainer(s): bug-gnu-emacs@HIDDEN If you wish to submit further information on this problem, please send it to 5665 <at> debbugs.gnu.org. Please do not send mail to bug-gnu-emacs@HIDDEN unless you wish to report a problem with the Bug-tracking system. --=20 5665: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D5665 Emacs Bug Tracking System Contact bug-gnu-emacs@HIDDEN with problems
X-Loop: bug-gnu-emacs@HIDDEN
Subject: bug#5665: 23.1; VC commands fail when the version control back end is SCCS
References: <1267470787.28800.1362528989@HIDDEN>
In-Reply-To: <1267470787.28800.1362528989@HIDDEN>
Resent-From: Ulrich Mueller <ulm@HIDDEN>
Original-Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Resent-To: owner <at> debbugs.gnu.org
Resent-CC: bug-gnu-emacs@HIDDEN
Resent-Date: Tue, 02 Mar 2010 17:07:02 +0000
Resent-Message-ID: <handler.5665.B5665.126754960826688 <at> debbugs.gnu.org>
Resent-Sender: bug-gnu-emacs@HIDDEN
X-Emacs-PR-Message: followup 5665
X-Emacs-PR-Package: emacs
X-Emacs-PR-Keywords:
To: 5665 <at> debbugs.gnu.org
Received: via spool by 5665-submit <at> debbugs.gnu.org id=B5665.126754960826688
(code B ref 5665); Tue, 02 Mar 2010 17:07:02 +0000
Received: (at 5665) by debbugs.gnu.org; 2 Mar 2010 17:06:48 +0000
Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1NmVYV-0006wP-U8
for submit <at> debbugs.gnu.org; Tue, 02 Mar 2010 12:06:48 -0500
Received: from a1iwww1.kph.uni-mainz.de ([134.93.134.1])
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <ulm@HIDDEN>) id 1NmV0y-0006YT-7f
for 5665 <at> debbugs.gnu.org; Tue, 02 Mar 2010 11:32:09 -0500
Received: from a1i15.kph.uni-mainz.de (a1i15.kph.uni-mainz.de [134.93.134.92])
by a1iwww1.kph.uni-mainz.de (8.14.0/8.13.4) with ESMTP id
o22GVxdr006439
for <5665 <at> debbugs.gnu.org>; Tue, 2 Mar 2010 17:32:00 +0100
Received: from a1i15.kph.uni-mainz.de (localhost [127.0.0.1])
by a1i15.kph.uni-mainz.de (8.14.3/8.14.2) with ESMTP id o22GVx9X013995;
Tue, 2 Mar 2010 17:31:59 +0100
Received: (from ulm@localhost)
by a1i15.kph.uni-mainz.de (8.14.3/8.14.3/Submit) id o22GVxW3013992;
Tue, 2 Mar 2010 17:31:59 +0100
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-ID: <19341.15743.651159.980050@HIDDEN>
Date: Tue, 2 Mar 2010 17:31:59 +0100
X-Mailer: VM 8.1.0-beta under 23.1.1 (x86_64-pc-linux-gnu)
From: Ulrich Mueller <ulm@HIDDEN>
X-Spam-Score: -2.6 (--)
X-Mailman-Approved-At: Tue, 02 Mar 2010 12:06:46 -0500
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.11
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/pipermail/debbugs-submit>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
X-Spam-Score: -2.6 (--)
The following thread on emacs-devel may be related to this problem:
<http://lists.gnu.org/archive/html/emacs-devel/2008-04/msg01770.html>
Ulrich
X-Loop: bug-gnu-emacs@HIDDEN
Subject: bug#5665: 23.1; VC commands fail when the version control back end is SCCS
Resent-From: Dan Nicolaescu <dann@HIDDEN>
Original-Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Resent-To: owner <at> debbugs.gnu.org
Resent-CC: bug-gnu-emacs@HIDDEN
Resent-Date: Tue, 02 Mar 2010 19:08:02 +0000
Resent-Message-ID: <handler.5665.B5665.126755685331086 <at> debbugs.gnu.org>
Resent-Sender: bug-gnu-emacs@HIDDEN
X-Emacs-PR-Message: followup 5665
X-Emacs-PR-Package: emacs
X-Emacs-PR-Keywords:
To: "Ron Mitchell" <ron@HIDDEN>
Cc: 5665 <at> debbugs.gnu.org
Received: via spool by 5665-submit <at> debbugs.gnu.org id=B5665.126755685331086
(code B ref 5665); Tue, 02 Mar 2010 19:08:02 +0000
Received: (at 5665) by debbugs.gnu.org; 2 Mar 2010 19:07:33 +0000
Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1NmXRN-00085L-1M
for submit <at> debbugs.gnu.org; Tue, 02 Mar 2010 14:07:33 -0500
Received: from paul-mcgann-v0.ics.uci.edu ([128.195.1.147])
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <dann@HIDDEN>) id 1NmXRL-00085C-CC
for 5665 <at> debbugs.gnu.org; Tue, 02 Mar 2010 14:07:32 -0500
Received: from godzilla.ics.uci.edu (godzilla.ics.uci.edu [128.195.10.101])
by paul-mcgann-v0.ics.uci.edu (8.13.8/8.13.8) with ESMTP id
o22J7Lrb019672
(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO);
Tue, 2 Mar 2010 11:07:21 -0800
Received: (from dann@localhost)
by godzilla.ics.uci.edu (8.13.8+Sun/8.13.6/Submit) id o22J7KaL028527;
Tue, 2 Mar 2010 11:07:20 -0800 (PST)
Date: Tue, 2 Mar 2010 11:07:20 -0800 (PST)
Message-Id: <201003021907.o22J7KaL028527@HIDDEN>
From: Dan Nicolaescu <dann@HIDDEN>
References: <1267470787.28800.1362528989@HIDDEN>
In-Reply-To: <1267470787.28800.1362528989@HIDDEN> (Ron
Mitchell's message of "Mon, 01 Mar 2010 19:13:07 +0000")
Lines: 58
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-ICS-MailScanner-Information: Please send mail to helpdesk@HIDDEN or
more information
X-ICS-MailScanner-ID: o22J7Lrb019672
X-ICS-MailScanner: Found to be clean
X-ICS-MailScanner-SpamCheck: not spam, SpamAssassin (not cached, score=-1.44,
required 5, autolearn=disabled, ALL_TRUSTED -1.44)
X-ICS-MailScanner-From: dann@HIDDEN
X-Spam-Status: No
X-Spam-Score: -2.6 (--)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.11
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/pipermail/debbugs-submit>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
X-Spam-Score: -2.6 (--)
"Ron Mitchell" <ron@HIDDEN> writes:
> I can't send mail from the host system, so I used report-emacs-bug to
> generate a mail which I've copied below.
>
> From: "RON MITCHELL (UNIVERSE USER)" <rmitchel@tntcg004>
> To: bug-gnu-emacs@HIDDEN
> Subject: 23.1; VC commands fail when the version control back end is
> SCCS
> --text follows this line--
>
> I'm running emacs on HP-UX.
>
> Our SCCS repository is under location /common, as set in the environment
> variable PROJECTDIR:
> $ env | grep PROJECTDIR
> PROJECTDIR=/common
> $
>
> I create a file called 'myfile' in the current directory. It is not yet
> registered to SCCS.
>
> I visit the file.
>
> Attempt to register the file with C-x v v
> -----------------------------------------
>
> It fails. There is an error message shown in the *vc* buffer:
> ERROR: missing file arg (cm3)
>
> Backtrace:
>
> Debugger entered--Lisp error: (error "Running sccs admin -r1.1 -fb
> -imyfile -y ../../common/SCCS/s.myfile...FAILED (status 1)")
> signal(error ("Running sccs admin -r1.1 -fb -imyfile -y
[snip similar issues]
> Preliminary Diagnosis
> ---------------------
>
> It seems to me that emacs is attempting to run the SCCS front-end
> command, sccs(1), against the repository filename,
> '/common/SCCS/s.myfile', instead of against the plain filename
> 'myfile' as required.
VC with SCCS on a system that does not use the PROJECTDIR environment
variable seems to work fine.
PROJECTDIR is used in one place in vc-sccs.el: vc-sccs-search-project-dir.
That function does:
(and dir (expand-file-name (concat "s." basename) dir)))
so it looks like your diagnosis is probably right.
The code in question has not changed in a very long time, so probably
PROJECDIR support never worked.
If you want to fix this vc-sccs-search-project-dir and maybe it's users
is what you'd have to change.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.