Mercurial > emacs
comparison lisp/vc-annotate.el @ 109252:64f9d1b2b73b
Fix finding revisions in for renamed files in vc-annotate.
* lisp/vc.el (vc-find-revision): Add an optional argument for
the VC backend. Use it when non-nil.
* lisp/vc-annotate.el (vc-annotate-find-revision-at-line): Pass the VC
backend to vc-find-revision. (Bug#6487)
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 21 Jun 2010 18:26:30 -0700 |
| parents | fb83c83549bb |
| children | a41a9e7bfad8 |
comparison
equal
deleted
inserted
replaced
| 109251:e60e30383efd | 109252:64f9d1b2b73b |
|---|---|
| 459 (message "Cannot be invoked outside of a vc annotate buffer") | 459 (message "Cannot be invoked outside of a vc annotate buffer") |
| 460 (let ((rev-at-line (vc-annotate-extract-revision-at-line))) | 460 (let ((rev-at-line (vc-annotate-extract-revision-at-line))) |
| 461 (if (not rev-at-line) | 461 (if (not rev-at-line) |
| 462 (message "Cannot extract revision number from the current line") | 462 (message "Cannot extract revision number from the current line") |
| 463 (switch-to-buffer-other-window | 463 (switch-to-buffer-other-window |
| 464 (vc-find-revision (cdr rev-at-line) (car rev-at-line))))))) | 464 (vc-find-revision (cdr rev-at-line) (car rev-at-line) vc-annotate-backend)))))) |
| 465 | 465 |
| 466 (defun vc-annotate-revision-previous-to-line () | 466 (defun vc-annotate-revision-previous-to-line () |
| 467 "Visit the annotation of the revision before the revision at line." | 467 "Visit the annotation of the revision before the revision at line." |
| 468 (interactive) | 468 (interactive) |
| 469 (if (not (equal major-mode 'vc-annotate-mode)) | 469 (if (not (equal major-mode 'vc-annotate-mode)) |