diff options
| author | Eric S. Raymond <esr@thyrsus.com> | 2014-12-11 22:44:32 -0500 |
|---|---|---|
| committer | Eric S. Raymond <esr@thyrsus.com> | 2014-12-11 22:44:32 -0500 |
| commit | ea8b9df12e38775600e850b8a57add2cf523bde5 (patch) | |
| tree | 2e5f616e86d4019415884e48331f177a5910b644 /lisp/vc/vc-sccs.el | |
| parent | aeeaf082e69ec088d6bbb140ddf0ce8119580a67 (diff) | |
| download | emacs-ea8b9df12e38775600e850b8a57add2cf523bde5.tar.gz emacs-ea8b9df12e38775600e850b8a57add2cf523bde5.tar.bz2 emacs-ea8b9df12e38775600e850b8a57add2cf523bde5.zip | |
Remove VC rollback method.
* vc/vc.el, vc/vc-hg.el, vc/vc-git.el, vc/vc-hooks.el,
vc/vc-mtn.el, vc/vc-rcs.el, vc/vc-sccs.el, vc/vc-src.el: rrollback
method removed, to be replaced in the future by uncommit.
Diffstat (limited to 'lisp/vc/vc-sccs.el')
| -rw-r--r-- | lisp/vc/vc-sccs.el | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index a8e122d6f93..63628647fd4 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -271,22 +271,6 @@ locked. REV is the revision to check out." switches)))) (message "Checking out %s...done" file)))) -(defun vc-sccs-rollback (files) - "Roll back, undoing the most recent checkins of FILES. Directories -are expanded to all version-controlled subfiles." - (setq files (vc-expand-dirs files 'SCCS)) - (if (not files) - (error "SCCS backend doesn't support directory-level rollback")) - (dolist (file files) - (let ((discard (vc-working-revision file))) - (if (null (yes-or-no-p (format "Remove version %s from %s history? " - discard file))) - (error "Aborted")) - (message "Removing revision %s from %s..." discard file) - (vc-sccs-do-command nil 0 "rmdel" - (vc-master-name file) (concat "-r" discard)) - (vc-sccs-do-command nil 0 "get" (vc-master-name file) nil)))) - (defun vc-sccs-revert (file &optional _contents-done) "Revert FILE to the version it was based on. If FILE is a directory, revert all subfiles." |