mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Remove never-used rev argument from VC's backend checkin methods.

Browse source 
Alters vc/vc-arch.el, vc/vc-bzr.el, vc/vc-cvs.el, vc/vc-dav.el,
vc/vc-git.el, vc/vc-hg.el, vc/vc-mtn.el, vc/vc-rcs.el,
vc/vc-sccs.el, vc/vc-svn.el, vc/vc.el.

Only the RCS, SCCS, and CVS back ends tried to do anything with it,
and that code was never exercised. Chiseling away the cruft of
decades...
This commit is contained in:
Eric S. Raymond 2014-11-20 02:37:06 -05:00
parent f5d77aafa9
commit f83109f0fa
12 changed files with 74 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/vc-hg.el
View file

@ -407,7 +407,7 @@ Optional arg REVISION is a revision to annotate from."
(and (vc-hg-command nil 0 nil "status")
(vc-hg-command nil 0 nil (if branchp "bookmark" "tag") name))))
(defun vc-hg-retrieve-tag (dir name update)
(defun vc-hg-retrieve-tag (dir name _update)
"Retrieve the version tagged by NAME of all registered files at or below DIR."
(let ((default-directory dir))
(vc-hg-command nil 0 nil "update" name)
@ -477,7 +477,7 @@ COMMENT is ignored."
(declare-function log-edit-extract-headers "log-edit" (headers string))
(defun vc-hg-checkin (files _rev comment)
(defun vc-hg-checkin (files comment)
"Hg-specific version of `vc-backend-checkin'.
REV is ignored."
(apply 'vc-hg-command nil 0 files