Function: cvs-mode-revert-to-rev

cvs-mode-revert-to-rev is an interactive and byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-mode-revert-to-rev)

Documentation

Revert the selected files to an old revision.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun-cvs-mode (cvs-mode-revert-to-rev . NOARGS) (rev)
  "Revert the selected files to an old revision."
  (interactive
   (list (or (cvs-prefix-get 'cvs-branch-prefix)
	     (let ((current-prefix-arg '(4)))
	       (cvs-flags-query 'cvs-idiff-version)))))
  (let* ((fis (cvs-mode-marked 'revert "revert" :file t))
	 (tag (concat "tmp_pcl_tag_" (make-temp-name "")))
         (buf (current-buffer))
	 (untag (lambda ()
                  (with-current-buffer buf
		    (cvs-mode-run "tag" (list "-d" tag) fis))))
	 (update (lambda ()
                   (with-current-buffer buf
		     (cvs-mode-run "update" (list "-j" tag "-j" rev) fis
				   :postproc untag)))))
    (cvs-mode-run "tag" (list tag) fis :postproc update)))