* 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 01cc00cfe07f96d2a4d865853aa0d894c83a1ea7..e69fe4b9d0f4a7fd09c9c6e6b86e7b00375150e7 100644 (file)
--- 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 b74ff77bc4119be9fafe1148e9bb6eff20a81f3d..b633b7be403f96d64321fbf8c5b769e3d8489a48 100644 (file)
--- 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)))))