Function: vc-rcs-revert

vc-rcs-revert is a byte-compiled function defined in vc-rcs.el.gz.

Signature

(vc-rcs-revert FILE &optional CONTENTS-DONE)

Documentation

Revert FILE to the version it was based on.

If FILE is a directory, revert all registered files beneath it.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-rcs.el.gz
(defun vc-rcs-revert (file &optional _contents-done)
  "Revert FILE to the version it was based on.
If FILE is a directory, revert all registered files beneath it."
  (if (file-directory-p file)
      (mapc #'vc-rcs-revert (vc-expand-dirs (list file) 'RCS))
    (vc-do-command "*vc*" 0 "co" (vc-master-name file) "-f"
		   (concat (if (eq (vc-state file) 'edited) "-u" "-r")
			   (vc-working-revision file)))))