[Emacs-diffs] /srv/bzr/emacs/trunk r112412: * vc/log-view.el (log-view-current-entry):

[Glenn Morris]

------------------------------------------------------------
revno: 112412
fixes bug: http://debbugs.gnu.org/14169
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-04-27 14:29:00 -0700
message:
  * vc/log-view.el (log-view-current-entry):
  Treat "---" separator lines as part of the following rev.
modified:
  lisp/ChangeLog
  lisp/vc/log-view.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-27 21:12:17 +0000
+++ b/lisp/ChangeLog    2013-04-27 21:29:00 +0000
@@ -1,3 +1,8 @@
+2013-04-27  Glenn Morris  <address@hidden>
+
+       * vc/log-view.el (log-view-current-entry):
+       Treat "---" separator lines as part of the following rev.  (Bug#14169)
+
 2013-04-27  Juri Linkov  <address@hidden>
 
        * subr.el (read-number): Doc fix about using it by interactive

=== modified file 'lisp/vc/log-view.el'
--- a/lisp/vc/log-view.el       2013-01-01 09:11:05 +0000
+++ b/lisp/vc/log-view.el       2013-04-27 21:29:00 +0000
@@ -317,7 +317,9 @@
        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)))))