From e7e9dbccb05175a512c40a3f433887c40abaa469 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 20 Nov 2014 03:52:24 -0500 Subject: Remove editable argument from VC's backend checkout methods. Alters 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. where this matters (which is only in SCCS and RCS) files are now always checked out editable. This may actually have been dynamically true already - it looks like the vc-next-action code evolved past visiting the other case. Tested with RCS. --- lisp/vc/vc-sccs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/vc/vc-sccs.el') diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index db777ab11e4..f1e437b1d9f 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -272,7 +272,7 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." (vc-sccs-lookup-triple file rev))) (vc-switches 'SCCS 'checkout))) -(defun vc-sccs-checkout (file &optional editable rev) +(defun vc-sccs-checkout (file &optional rev) "Retrieve a copy of a saved revision of SCCS controlled FILE. If FILE is a directory, all version-controlled files beneath are checked out. EDITABLE non-nil means that the file should be writable and @@ -299,7 +299,7 @@ locked. REV is the revision to check out." (not (stringp rev))) (setq rev nil)) (apply 'vc-sccs-do-command nil 0 "get" (vc-name file) - (if editable "-e") + "-e" (and rev (concat "-r" (vc-sccs-lookup-triple file rev))) switches)))) (message "Checking out %s...done" file)))) -- cgit v1.2.1