From: Glenn Morris <rgm@gnu.org>
Date: Sat, 27 Apr 2013 21:29:00 +0000 (-0700)
Subject: * vc/log-view.el (log-view-current-entry):
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~350
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=685c9501cdf0771e78e2fb3d40d1c85baf676421;p=emacs.git

* vc/log-view.el (log-view-current-entry):
Treat "---" separator lines as part of the following rev.

Fixes: debbugs:14169
---

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  <rgm@gnu.org>
+
+	* vc/log-view.el (log-view-current-entry):
+	Treat "---" separator lines as part of the following rev.  (Bug#14169)
+
 2013-04-27  Juri Linkov  <juri@jurta.org>
 
 	* 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)))))