procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix log-view-diff-common when point is after last entry

Browse source 
Bug#28466
* lisp/vc/log-view.el (log-view-diff-common): If point is after last
entry, look at the previous revision.
This commit is contained in:
Tom Tromey 2017-09-18 20:02:01 -06:00
parent 3f006b56cd
commit 066efb8666
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/vc/log-view.el
View file

@ -608,10 +608,16 @@ considered file(s)."
(log-view-diff-common beg end t))) (log-view-diff-common beg end t)))
(defun log-view-diff-common (beg end &optional whole-changeset) (defun log-view-diff-common (beg end &optional whole-changeset)
(let ((to (log-view-current-tag beg)) (let* ((to (log-view-current-tag beg))
(fr (log-view-current-tag end))) (fr-entry (log-view-current-entry end))
(when (string-equal fr to) (fr (cadr fr-entry)))
;; TO and FR are the same, look at the previous revision. ;; When TO and FR are the same, or when point is on a line after
;; the last entry, look at the previous revision.
(when (or (string-equal fr to)
(>= (point)
(save-excursion
(goto-char (car fr-entry))
(forward-line))))
(setq fr (vc-call-backend log-view-vc-backend 'previous-revision nil fr))) (setq fr (vc-call-backend log-view-vc-backend 'previous-revision nil fr)))
(vc-diff-internal (vc-diff-internal
t (list log-view-vc-backend t (list log-view-vc-backend