Function: vc-annotate-revision-previous-to-line

vc-annotate-revision-previous-to-line is an interactive and byte-compiled function defined in vc-annotate.el.gz.

Signature

(vc-annotate-revision-previous-to-line)

Documentation

Visit the annotation of the revision before the revision at line.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-annotate.el.gz
(defun vc-annotate-revision-previous-to-line ()
  "Visit the annotation of the revision before the revision at line."
  (interactive)
  (if (not (equal major-mode 'vc-annotate-mode))
      (message "Cannot be invoked outside of a vc annotate buffer")
    (let* ((rev-at-line (vc-annotate-extract-revision-at-line))
	   (prev-rev nil)
	   (rev (car rev-at-line))
	   (fname (cdr rev-at-line)))
      (if (not rev-at-line)
	  (message "Cannot extract revision number from the current line")
	(setq prev-rev
	      (vc-call-backend vc-annotate-backend 'previous-revision
                               fname rev))
	(if (not prev-rev)
            (message "No previous revisions")
          (vc-annotate-warp-revision prev-rev fname))))))