Function: vc-annotate-revision-at-line

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

Signature

(vc-annotate-revision-at-line)

Documentation

Visit the annotation of the revision identified in the current line.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-annotate.el.gz
(defun vc-annotate-revision-at-line ()
  "Visit the annotation of the revision identified in the current 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)))
      (if (not rev-at-line)
	  (message "Cannot extract revision number from the current line")
	(if (and (equal (car rev-at-line) vc-buffer-revision)
		 (string= (cdr rev-at-line) (caadr vc-buffer-overriding-fileset)))
	    (message "Already at revision %s" rev-at-line)
	  (vc-annotate-warp-revision (car rev-at-line) (cdr rev-at-line)))))))