* vc/log-view.el (log-view-current-entry):

Treat "---" separator lines as part of the following rev.

Fixes: debbugs:14169

2 files changed, 8 insertions, 1 deletions

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)))))