From ee916ed0380b5cfb00bfc1257056ab71f59bd4a2 Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Mon, 6 Jan 2014 22:00:16 -0800 Subject: [PATCH] Explain recent change to log-view.el --- lisp/ChangeLog | 5 +++++ lisp/vc/log-view.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48f11813d49..ee11efdc7eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-01-07 Daniel Colascione + + * vc/log-view.el (log-view-beginning-of-defun): Add comment + explaining why we call `log-view-end-of-defun'. + 2014-01-07 Chong Yidong * isearch.el (isearch-yank-char, isearch-yank-word) diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el index bacf96c4677..484e40f7ac0 100644 --- a/lisp/vc/log-view.el +++ b/lisp/vc/log-view.el @@ -431,6 +431,9 @@ It assumes that a log entry starts with a line matching `log-view-message-re'." (when (null arg) (setf arg 1)) (if (< arg 0) + ;; In log view, the end of one defun is the beginning of the + ;; next, so punting to log-view-end-of-defun is safe in this + ;; context. (log-view-end-of-defun (- arg)) (let ((found t)) (while (> arg 0) -- 2.39.2