mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(vc-annotate-revision-at-line): Compare file

Browse Source 
names too.
This commit is contained in:
Dan Nicolaescu 2010-01-25 01:04:59 -08:00
parent 433bdc96cb
commit e2396d80cb
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2010-01-25 Dan Nicolaescu <dann@ics.uci.edu>
* vc-annotate.el (vc-annotate-revision-at-line): Compare file
names too.
* vc-bzr.el (vc-bzr-print-log): Use the more compact --line option
for the short log.
(vc-bzr-log-view-mode): Adjust regexp for the above change.

3
lisp/vc-annotate.el
View File

@ -447,7 +447,8 @@ Return a cons (REV . FILENAME)."
(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 (equal (car rev-at-line) vc-annotate-parent-rev)
(if (and (equal (car rev-at-line) vc-annotate-parent-rev)
(string= (cdr rev-at-line) vc-annotate-parent-file))
(message "Already at revision %s" rev-at-line)
(vc-annotate-warp-revision (car rev-at-line) (cdr rev-at-line)))))))