diff options
| author | Eric S. Raymond <esr@thyrsus.com> | 2014-11-20 03:52:24 -0500 |
|---|---|---|
| committer | Eric S. Raymond <esr@thyrsus.com> | 2014-11-20 03:52:24 -0500 |
| commit | e7e9dbccb05175a512c40a3f433887c40abaa469 (patch) | |
| tree | 551b1a5015334f0a553d7873a1b7b45c4e52aaf2 /lisp/vc/vc-sccs.el | |
| parent | f83109f0fabe13c0175ca6fe23b475bd8a9d9d99 (diff) | |
| download | emacs-e7e9dbccb05175a512c40a3f433887c40abaa469.tar.gz | |
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.
Diffstat (limited to 'lisp/vc/vc-sccs.el')
| -rw-r--r-- | lisp/vc/vc-sccs.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |