all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* 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; 7+ 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] 7+ messages in thread
* vc-checkin (RCS) always. Problem with vc-checkin
@ 2015-09-06 19:04 Uwe Brauer
  2015-09-07  3:49 ` Pierre Lorenzon
  0 siblings, 1 reply; 7+ messages in thread
From: Uwe Brauer @ 2015-09-06 19:04 UTC (permalink / raw)
  To: help-gnu-emacs

Hello

The following code can be found in

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! ")))))

I modified the original code
by adding (format "RCS/%s,v" (file-name-nondirectory buffer-file-name)



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, 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] 7+ messages in thread

end of thread, other threads:[~2015-10-18 22:03 UTC | newest]

Thread overview: 7+ 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
  -- strict thread matches above, loose matches on Subject: below --
2015-09-06 19:04 Uwe Brauer
2015-09-07  3:49 ` Pierre Lorenzon
2015-09-07 20:44   ` Uwe Brauer
2015-10-18 22:03     ` Thien-Thi Nguyen

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.