From 685c9501cdf0771e78e2fb3d40d1c85baf676421 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 27 Apr 2013 14:29:00 -0700 Subject: [PATCH] * vc/log-view.el (log-view-current-entry): Treat "---" separator lines as part of the following rev. Fixes: debbugs:14169 --- lisp/ChangeLog | 5 +++++ lisp/vc/log-view.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 01cc00cfe07..e69fe4b9d0f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-04-27 Glenn Morris + + * vc/log-view.el (log-view-current-entry): + Treat "---" separator lines as part of the following rev. (Bug#14169) + 2013-04-27 Juri Linkov * subr.el (read-number): Doc fix about using it by interactive diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el index b74ff77bc41..b633b7be403 100644 --- a/lisp/vc/log-view.el +++ b/lisp/vc/log-view.el @@ -317,7 +317,9 @@ Otherwise, don't move point." result) (save-excursion (when pos (goto-char pos)) - (forward-line 1) + (forward-line 0) + ;; Treat "---" separator lines as part of the following revision. + (forward-line (if (looking-at "-\\{20,\\}$") 2 1)) (while looping (setq pos (re-search-backward log-view-message-re nil 'move) looping (and pos (log-view-inside-comment-p (point))))) -- 2.11.4.GIT