Explain recent change to log-view.el

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 48f11813d494de32cc5fbc4708a91073347bb2a3..ee11efdc7eb549c871daccd56a648b77124be723 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-07  Daniel Colascione  <dancol@dancol.org>
+
+       * 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  <cyd@gnu.org>
 
        * isearch.el (isearch-yank-char, isearch-yank-word)

diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el
index bacf96c467718b121364e6a2e27cd1ffed72e466..484e40f7ac028b08117da91228d34f067555c9f8 100644 (file)
--- 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)