mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

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

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

Fixes: debbugs:14169
This commit is contained in:
Glenn Morris 2013-04-27 14:29:00 -07:00
parent 0208ede7ab
commit 685c9501cd
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

4
lisp/vc/log-view.el
View File

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