[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112412: * vc/log-view.el (log-view-c
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112412: * vc/log-view.el (log-view-current-entry): |
Date: |
Sat, 27 Apr 2013 14:29:00 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112412: * vc/log-view.el (log-view-current-entry):,
Glenn Morris <=