* vc-checkin (RCS) always. Problem with vc-checkin
@ 2015-09-12 8:17 Uwe Brauer
2015-09-12 9:33 ` Andreas Schwab
0 siblings, 1 reply; 3+ messages in thread
From: Uwe Brauer @ 2015-09-12 8:17 UTC (permalink / raw)
To: emacs-devel
Hello
I asked this some days ago in Emacs.help. However the answer given did
not work of me, so I hope somebody in this list might now the answer.
http://www.emacswiki.org/emacs/VersionControlAlways
(defun ensure-in-vc-or-check-in ()
"Automatically checkin file ,v can be in the same directory or in the
subdirectory RCS. The idea is to call that function only for files
not for buffers. See the function ensure-in-vc-or-check-in-modes
which could be use in an apropriate HOOK."
(interactive)
(when (buffer-file-name)
(if (or (and (file-exists-p (format "%s,v" (buffer-file-name))))
(and (file-exists-p (format "RCS/%s,v" (file-name-nondirectory buffer-file-name)))))
(let ((p (point)))
(progn
(vc-checkin (buffer-file-name) nil "")
(vc-toggle-read-only)
(message "Checked in"))
(goto-char p))
(progn
(message "You need to check this in! ")))))
The point is the code works for a old version of VC, however for GNU
emacs 25
(vc-checkin (buffer-file-name) nil "")
does not work any more.
The docstring for the old function said:
(vc-checkin FILE &optional REV COMMENT INITIAL-CONTENTS)
file for the new function:
(vc-checkin FILES BACKEND &optional COMMENT INITIAL-CONTENTS)
so I thought
(vc-checkin (buffer-file-name) 'RCS nil "")
or
(vc-checkin (buffer-file-name) 'RCS "")
Should work, however it does not. The following error is given
vc-delistify seems the culprit, but I am stack.
Thanks
Uwe Brauer
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument sequencep 47)
mapconcat(identity
"/home/oub/emacs/site-lisp/versch/vc-ensure-checkin.el" " ")
vc-delistify("/home/oub/emacs/site-lisp/versch/vc-ensure-checkin.el")
#[514
"\303\304\305!\"\210\211\203
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: vc-checkin (RCS) always. Problem with vc-checkin
2015-09-12 8:17 vc-checkin (RCS) always. Problem with vc-checkin Uwe Brauer
@ 2015-09-12 9:33 ` Andreas Schwab
2015-09-12 13:04 ` Uwe Brauer
0 siblings, 1 reply; 3+ messages in thread
From: Andreas Schwab @ 2015-09-12 9:33 UTC (permalink / raw)
To: emacs-devel
Uwe Brauer <oub@mat.ucm.es> writes:
> (vc-checkin (buffer-file-name) nil "")
vc-checkin expects a list as the first argument.
Andreas.
--
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: vc-checkin (RCS) always. Problem with vc-checkin
2015-09-12 9:33 ` Andreas Schwab
@ 2015-09-12 13:04 ` Uwe Brauer
0 siblings, 0 replies; 3+ messages in thread
From: Uwe Brauer @ 2015-09-12 13:04 UTC (permalink / raw)
To: emacs-devel
>>>>> "Andreas" == Andreas Schwab <schwab@linux-m68k.org> writes:
> Uwe Brauer <oub@mat.ucm.es> writes:
>> (vc-checkin (buffer-file-name) nil "")
> vc-checkin expects a list as the first argument.
This was suggested to me
(vc-call-backend 'RCS 'checkin (list (buffer-file-name)) "")
and did not work,
While
(vc-checkin (list (buffer-file-name)) 'RCS " ")
works now, I swear it did not last week with GNU Emacs 24, now I am
using the actual git version
Thanks
Uwe Brauer
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2015-09-12 13:04 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-09-12 8:17 vc-checkin (RCS) always. Problem with vc-checkin Uwe Brauer
2015-09-12 9:33 ` Andreas Schwab
2015-09-12 13:04 ` Uwe Brauer
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).