Function: vc-cvs-revert

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

Signature

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

Documentation

Revert FILE to the working revision on which it was based.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-cvs.el.gz
(defun vc-cvs-revert (file &optional contents-done)
  "Revert FILE to the working revision on which it was based."
  (vc-default-revert 'CVS file contents-done)
  (unless (eq (vc-cvs-checkout-model (list file)) 'implicit)
    (if vc-cvs-use-edit
        (vc-cvs-command nil 0 file "unedit")
      ;; Make the file read-only by switching off all w-bits
      (set-file-modes file (logand (file-modes file) #o7555)))))