From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Uwe Brauer Newsgroups: gmane.emacs.devel Subject: vc-checkin (RCS) always. Problem with vc-checkin Date: Sat, 12 Sep 2015 10:17:13 +0200 Message-ID: <87r3m4aw6u.fsf@mat.ucm.es> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1442045864 12030 80.91.229.3 (12 Sep 2015 08:17:44 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 12 Sep 2015 08:17:44 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Sep 12 10:17:35 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Zag05-0003Vb-GD for ged-emacs-devel@m.gmane.org; Sat, 12 Sep 2015 10:17:33 +0200 Original-Received: from localhost ([::1]:59895 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zag04-0004Tg-Oy for ged-emacs-devel@m.gmane.org; Sat, 12 Sep 2015 04:17:32 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56300) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zag01-0004TU-Sf for emacs-devel@gnu.org; Sat, 12 Sep 2015 04:17:30 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Zafzw-0005uw-U7 for emacs-devel@gnu.org; Sat, 12 Sep 2015 04:17:29 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:50312) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zafzw-0005tg-NW for emacs-devel@gnu.org; Sat, 12 Sep 2015 04:17:24 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Zafzt-0003EQ-TS for emacs-devel@gnu.org; Sat, 12 Sep 2015 10:17:21 +0200 Original-Received: from 171.pool85-55-19.dynamic.orange.es ([85.55.19.171]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 12 Sep 2015 10:17:21 +0200 Original-Received: from oub by 171.pool85-55-19.dynamic.orange.es with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 12 Sep 2015 10:17:21 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: emacs-devel@gnu.org Original-Lines: 67 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: 171.pool85-55-19.dynamic.orange.es Mail-Copies-To: never User-Agent: Gnus/5.13001 (Ma Gnus v0.10) Emacs/25.0.50 (gnu/linux) Cancel-Lock: sha1:8yZELWHXeuuemDAPYTqFSK5+MWU= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:189852 Archived-At: 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